


Neste livro introduzem-se crianças e adultos pa¬ 
ra o mundo fascinante da ciência, ilustrada pelos 
gráficos, através da tela conectada a esta mara¬ 
vilha eletrônica que é o microcomputador TK 90X. 

O livro, nos seus 20 capítulos apresenta diver¬ 
sos programas em BASIC que permitem a você 
obter espirais, circuitos eletrônicos, visão tridi¬ 
mensional dos corpos, o seu biorritmo um simu¬ 
lador lógico etc. 

Toda a potencialidade de seu TK 90X, princi¬ 
palmente no que se refere à parte gráfica, é ilus¬ 
trada com estes programas. 



Você sabia que, entre outras coisas, o TK 90X 
permite criar os seus próprios caracteres gráficos? 

As possibilidades, as descobertas e a alegria 
são sem limites depois da exibição na tela dos re¬ 
sultados de todos os programas apresentados. 

Tudo o que você deve fazer para atingir este 
"estado de graça" é ter estes livros e o TK 90X, 
sentar à sua frente e, com o livro ao lado, come¬ 
çar a teclar desesperadamente... 
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Neste livro íntroduzem-se crianças e adul¬ 
tos para o mundo fascinante da ciência, ilustrada 
pelos gráficos, através da tela conectada e esta ma 
ravilha eletrônica que é o microcomputador TK 90X. 

0 livro, nos seus 20 capítulos contem mui 
tos programas (31 no total) todos apresentados na 
linguagem BASIC para o TK 90X. 

Estes programas "invadem" as mais diversas 
áreas como a Matemãtica, a Física, a Eletrônica, a 
Química, o Desenho, etc. 

Toda a potencialidade do seu TK 90X, prin¬ 
cipalmente no que se refere a parte grafica ê ilus¬ 
trada com estes programas. 

Voce vera lindas curvas (senoides, - circun¬ 
ferências, elipses), poderã saber como ê o seu bio- 
rítmo, aproximara ou afastara de si lindo octaedro, 
brincara com todas as opoes permitidas para as por¬ 
tas lógicas , vivera a visão tridimensional com o 
chapéu mexicano, etc. 

As possibilidades, as descobertas e a ale¬ 
gria são sem limites depois que voce estimado(a) 
1eitor(leitora) ver exibidos na tela os resultados 
de todos os programas do livro. 


Impresso no Brasil/Printed in Brazil 



É util ressaltar que neste livro não exis¬ 
te a preocupação de fornecer explicação detalhada 
para as instruções que constituem os programas. 

Caso o(a) respeitado(a) leitor(leitora) t 
nha duvida sobre o desempenho de alguns comandos d 
ve recorrer ao livro "BASIC no TK 90X" que e também 
de minha autoria. 

Porém, a partir dest.e momento, tudo o que 
voce deve fazer para atingir um "estado de graça" ê 
com este livro ao lado, sentar em frente ao seu TK 
90X e começar a teclar. 
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Exmtfãa fie figuras 


Os pequenos programas que se seguem vão lhe 
dar os primeiros indícios das potencialidades do seu 
TK 90X na geração de figuras e curvas. 

■0 primeiro programa desenha uma serie de 
curvas senoidais. 

10 LET r=RM>*6 : PAPER r : BORDER r : INK 7 
15 CLS 

20 FOR j=l TO 2 

30 FOR a - 0 TO 50 STEP 10 

40 FOR x * 0 TO S STEP 0.05 

50 IF j=l THEN PLOT 20*x + a, 38*SINx + 38 + a 

60 IF j=*2 THEN PLOT OVER 1; 20*x + a, 38*SINx + 38 + a 

70 NEXT x 

80 NEXT a 

90 NEXT j 

100 CLS 
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Execute e veja se sai algo do seguinte ti¬ 
po: 



Figura la 

( 0 . 1 .) 

no lugar do STN x com COS x, 
mude os passos nas linhas 20 e 30» introduza outros 
valores na linha 50 (por exemplo,25 no lugar de 20 
e 30 no lugar de 38) etc.. 

Mexa-se e obtenha outras lindas figuras 
com o programa. 

0 programa que vem a seguir representa o 
gráfico de uma função depois que você introduzir a 
mesma dentro do TK 90X. 

Al vão algumas sugestões para a f(x) 

2 10000 x 

, e , 


Observação Importante 


Tente entrar 


0,5x+4, x‘ 


300-x’ 


/jc , etc. 
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10 INPUT.INK 3; "Escreva uma função de xD"; LINE f$ 

20 LET r = RND*5: PAPER r: BORDER r: TNK 6: CLS 
30 PLOT 0,175: DRAW 0 r 175 
40 DRAW 255,0 
50 FOR x = 0 TO 255 
60 LET y = VAL f$ 

70 IF x >255 OR y >175 THEN GO TO 110 
80 PLOT x,y. 

90 SOUND 0.018,12 
100 NEXT x 

110 PRINT AT 13,2; FLASH 1; "y="; f$ 

CET^ 

Voce caro(a) leitor (leitora) tem um progra¬ 
ma bem mais sofisticado que este com a mesma finali 
dade com o nome "REPRESENTAÇÃO DE UMA FUNÇÃO" - 

Capitulo 16-. 




0 ultimo mini-programa do' tõpico "Execução 
de figuras" desenha circunferências com. centros di¬ 
ferentes e com diferentes raios (menor e maior) com 
o que se obtêm circunferências "sobrepostas". 


10 REM **Desenho de muitas circunferências 
20 INPUT "Entre com a abscissa (x)"; x 
30 INPUT "Entre com a ordenada (y)"; y 
40 INPUT "Qual e o raio menor (1-25)?"; rmin 
50 INPUT "Qual ê o raio maior (20-50)?; rmax 
60 INPUT "Qual ê a cor?"; c 
70 FOR z =* rmin TO rmax 
80 CIRCLE INK c; x,y,z 
90 NEXT z 
100 GOTO 20 
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Execute e veja se sai algo do tipo: 



0,1. - Toda vez que na listagem de um programa apa~ 
recer o caractere isto significa que e 

para deixar um espaço em branco. 


(Jajmala 2 
(Gráficos 

t rigonomctricos 


Inicialmente vejamos como se pode obter um 
conjunto de padrões gráficos descobertos no século 
XIX pelo físico francês Jules Lissajous que estudou 
a composição dos movimentos vibratórios mediante um 
processo otico. 

Hoje e muito simples obter a figura de Lis 
sajous indicada na Figura 2. 



Figura 2 - p * 1.1 
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AÍ vai o programa que lh.e permite obter i 


10 INPUT "Entre com o parametro (0.7 a 1.3) ; p: CLS 
20 BOEDER 1: XNK 2: PAPER 6 
30 LET t = 0 
40 LET t = t+.l 

50 LET x = 50 * (1+SIN (p*t)) s* 

60 LET y = 50 * (1+COS t) / oy 

70 PLOT x + 50, y + 50 

80 GOTO 40 £ —V' T>4_' ^ 


C \ 

Q * ^ ' J 

Qualquer duvida que voce tiver sobre as 

instruções deve recorrer ao livro "BASIC NO TK 90X 
de nossa autoria obviamente... 


Uma segunda ilustração no seu TK 90X daqui 
lo que ja lhe deu (ou lhe dara) muito trabalho é o 

^ S 6I1X 

grafico da função —— • 

Aqui vai a simples e musical, representação 

da própria 


10 CLS 

20 INK 2: PAPER 6: BORDER 1 
30 FOR j*l TO 250 
40 IF j =125 THEN GOTO 60 
50 LET x = (j-125)/5 
60 LET y - 80 *SIN(x)/x 
70 PLOT j,y: DRAW l,y 
80 SOUND .018, y/2 
90 NEXT j 
100 GOTO 10 
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Para finalizar este pequeno compacto do 
uso das funções seno e cosseno aí vai o programa 
que dã o grafico da rosácea de quatro folhas cuja 
equação polar e: 

r = a cos 21 (0 ^ t^ 2n, a = 50) 

usando-se as expressões paramétricas 

( x = r sen t 
y = r cos t 

■10 INK 2: PAPER 7 : BORDER 1 
20 LET 1=0: LET F=2*PI 
30 LET N=90 
40 LET A=50 
50 LET INC = (F-D/N 
60 FOR j=I TO F STEP INC 
70 LET R=A*C0S(2*j) 

80 LET X=R*S1N j 
90 LET Y=R*COS j 
100 PLOT 127+x, 87+y 
110 NEXT j 
120 STOP 




(íaprtulfl 3 
®m «n wn 


Como existe apenas um número finito de pi¬ 
seis disponível na tela, as linhas retas desenhadas 
na diagonal parecem muitas vetes com "escadinhas". 

Na pratica isto náo representa nenhum pro¬ 
blema real e até pode ser convertido em uma vanta¬ 
gem como é o caso do primeiro programa deste capitu 
lo no qual se desenha uma sequência de 90 belos qua 

dros . 

Este programa, por incrível que possa pare 
cer utiliza os pequenos defeitos dos aparelhos de 
T.V. que tendem a não apresentar os detalhes mais 

finos. 

Bem chega de papo, é você mesmo que vai no 
tar e julgar a beleza e o aspecto artístico provoca 
do pelo programa. 
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10 FOR q=l TO 90 
20 LET p=2 + INT(3*RND) 

30 LET c=INT(2*RND) 

40 FOR x=255 TO 0 STEP -p 

50 PLOT x,0: DRAW OVER c; 255 -2*x, 175 

60 NEXT x 

70 FOR y-0 TO 175 STEP p 

30 PLOT 0,y: DRAW OVER c; 255, 175 - 2*y 

90 NEXT y 

100 NEXT q 

Aí vão algumas rapidas explicações 




1) Da linha 10 ate alinha 1001 tem-se o LOOP que serve para 
imprimir os 90 quadros. 


2) Na linha 20 tem-se a instrução que faz a escolha alea¬ 
tória do passo para as linhas 40 e 70 sendo que o valor 
do passo esta sempre entre 2 e 4 (extremos incluidos). 


3) Na linha 30 tem-se a escolha aleatória do valor de c 
que pode ser 0 ou 1. 

Este código e usado nas linhas 50 e 80 após a ins¬ 
trução DRAW OVER para fazer com que o programa faça o 
TK 90X desenhar linhas pretas (quando c=0) ou dese¬ 
nhar linhas invertendo o que ja esti na tela (c=l). 


4) 0 LOOP que vai das linhas 40 ate 60 desenha uma metade 
do quadro e o que vai das linhas 70 ate 90 a outra me¬ 
tade. 


Execute o programa e veja se obtem algo pa 
recido com o que esta na Figura.3. 
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Você percebeu o lindo efeito provocado pe¬ 
la instrução DRAW. 

Porem ela tem muito mais coisa embutida 

dentro das suas possibilidades. 

Ao se acrescentar um terceiro valor após a 
instrução DRAW ou seja escrevendo-se 
DRAW x,y,a 

o TK 90X desenhara um arco de circunferência. 

Para ter uma imediata demonstração deste 
efeito tecle o seguinte programinha: 

10 FOR p - -1.5*P1 TO 1.5*PI STEP Pl/2 
20 PLOT 127,60 
30 DRAW 0,60,p 
A0 NEXT p 

Execute e veja se obtêm o que esta indica¬ 
do na Figura A. 




Figura 4 
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Você vai sentir nos diversos programas des 
te livro qüe a instrução DRAW ê usada como parte de 
uma rotina para desenhar as mais complicadas formas 
geométricas mas neste momento quero lhe dar um pou¬ 
co de distração e por isto aí vai um programa no 
qual se apresenta um joguinho baseado muito no po¬ 
der da instrução DRAW. 

A finalidade do jogo e você "capturar" ohú 
mero máximo possível de capsulas espaciais escolhen 
do um campo de força adequado em torno delas. 

0 campo de força tem a forma de* uma bolha 
e voce pode controlar o seu tamanho, 

Existe apenas ura pequeno problema ou seja 
se você tocar com o contorno da bolha em alguma das 
capsulas espaciais desativara o mesmo por ter provo 
cado um curto-circuito. 

Neste jogo podem participar dois ou mais 
contendores cada um deles sendo eliminado do jogo 
quando ocorrer a destruição do seu campo de fórça. 

AÍ vai o.programa: 

5 INK 3: BORDER A: PAPER 6: CLS 
10 FOR j=l TO 17: PRINT AT 15*RND, 30*RND; "0": NEXT j 

20 PLOT 80,10: DRAW 0, -10: DRAW 85,0: DRAW 0,10 
30 XNPUT "Entre com o tamanho da bolha (1-9)"; tamanho 
A0 XF tamanho < 1 OR tamanho > 9 THEN GOTO 30 
50 PLOT 80,10: DRÀW OVER 1; 85,0,-(A.35+tamanho/10) 

60 PRINT AT 19,5; Vai tentar outra vez? (S/N)" 

70 IF INKEY$ = "s" OR INKEY$ = "S" THEN RUN 
80 XF INKEY$ < > "n" OR INKEY$ < > "N" THEN GOTO 70 

Algumas explicações sobre este programa 

1) Linha 10 - Imprimem-se com esta linha de instruções 
múltiplas as 17 capsulas espaciais em posições alea¬ 
toriamente escolhidas. 
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2) Unha 20 - Aí estão as instruções que "forçam" o TK 
90X a desenhar o emissor do campo de força. 

3) Unhas 30 a 50 - AÍ ã feita a escolha (por você) do 
tamanho da bolha, verifica-se a suá validade (linha 
40) e então desenha a "bolha". 

A função OVER 1 ê usada na linha 50 para mostrar 
que hã destruição do campo de força quando ele toca 
uma capsula espacial. 

4) Linhas 60 a 80 - Neste trecho espera-se pela entrada 
do prõximo jogador na partida. 

Ao executar o programa deve surgir algo do tipo 
mostrado na Figura 5, 


d 



Figura 5 


Para finalizar o Capítulo "TRÊS EM UM" va¬ 
mos desenhar algumas quadricircunferencias ou alguns 
reticu lo-c itculo_s . 

Cabe a você ficar com o nome que gostar 

mais. 


Voce jã notou que a instrução DRAW permite 
desenhar um trecho ou seja um arco de circunferên¬ 
cia e faz isto calculando as coordenadas dos vários 


pontos do arco e então unindo os pontos por linhas 


retas. 
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Comumente nao se comenta isto, mas quando 
voce tornar o terceiro parâmetro após a instrução 
DRAW extremamente grande o resultado pode ser tre- 
raendamente inesperado e espetac,ular. 

Entre com o seguinte programa e atribua ao 
parâmetro p valores altos, 

10 INPUT p: PRINT p 

20 PLOT 127,10: DRAW 0,150,p*PI 

ou melhor, se você quiser ver desenhos como os indi 
cados nas Figura 6a),b),c) e d) no lugar da linha 
20 entre com a nova linha 20 

20 PLOT 127,10: DRAW OVER 1; 0, 150, p*PI 

Entre os valores "interessantes"que você 
deve testar indico 

p - .101 * 119 , 253, 261, 271 , 383 e 999.9 . 



' —tS> 



Figura 6 



(íaptiulo 4 

Seprmtttafãü 

ampltaha 


Aí vai um programa bem simplificado que lhe 
permite obter uma versão ampliada de qualquer ca¬ 
ractere: normal, grafico ou definido por voce esti- 
mado(a) usuario(a). 

Ê obvio que não se permite o uso das pala¬ 
vras-chave. 

So e possível dispor de quatro caracteres 
por linha, podendo-se escolher a cor deles (numero 
de 1 a 7). 

É na variável e_ que se armazena o endereço 
de inicio, na ROM, do conjunto de caracteres. 

10 REM *** REPRESENTAÇÃO AMPLIADA *** 

20 SOUND .1,13: SOUND .1,13: SOUND .7,13: SOUND .8,13: 

SOUND .7,14 

30 LET e = PEEK 23606 + 256 * PEEK 23607 

40 INPUT "Entre com a cor da tinta D"; t: INK t 

50 INPUT "Escreva uma palavra (nao mais de 4 letras)"; p$ 
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60 FOR v = 0 TO 3 - 

70 LET f = e + CODE p$ (v+l)*8 f <ò \ 1 ' Note S ue cada C 

( linha deve receber 

80 FOR g = 0 T0 7 \ obrigatoriamente quatro 

90 TFT h = PFFF / caracteres e caso envie 

y» LET h PEEK (f+g) / menos complete a mesma 

100 FOR j = 0 TO 7 v c om espaços em bran co.^ 

110 IF h/2 <>INT(h/2) THEN PRINT AT 13+g, 8-vj + (v*3); 

INK t;"H" 

115 SOUND . 008 , t 
120 LET h = INT (h/2) 

■130 NEXT j: NEXT g: NEXT v 
140 INPUT "Quer escrever algo mais?0"; r$ 

150 POKE 23692,-1 

160 IF r$(l) = ;, S" OR r$ (1) = "s" THEN PRINT’ >>>>>>>>». 

GOTO 10 
170 STOP 


Execute e veja se sai algo deste tipo,quan 
do na linha 110 voce tiver o caractere grãfico "®" 


IS 

MflIO 
19 9 3 


Figura 7 



(íaptiulfl 5 

5Elab0ranÍ0 um 
Iftstugrama gausstauu 
t uartattUs 


Neste programa e muito importante o desem 
penho da função RND para produzir o histograma. 

Ai esta o programa 


10 DIM a(16) 


20 LET esc = .1 


30 RAND 


40 SOUND .1,12: SOUND .2,13: 


SOU ND .3,14 
50 LET c - 0 
60 FOR 1*1 TO 12 
70 LET c » c+RND 
80 NEXT i 



90 LET dp “ 2: LET media * 7.5 
100 LET j«INT(l+(c-6)*dp+mêdia) 


A variável "esc" S utili¬ 
zada como um fator de es¬ 
cala. Quanto menor for o 
seu valor, mais números 
aleatórios poderão ser 
acumulados antes que o 
programa pare,porque uma 
das barras ou hastes 
atingiu o topo da tela. 
Sugiro (e nao e nome de 
japonês) que voce estima- 
do(a) leitor(leitora) ten 
te outros valores e sinta 
ou melhor veja,a diferen¬ 
ça 
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110 IF j <1 THEN LET j=l | 

120 IF j >1 THEN LET j=16J ^ 

130 LET a(j) - a(j) + esc 
140 IF a(j) >21 THEN STOP 
150 PRINT AT 21-a(j), 

160 GOTO 50 


Estas instruções impedem 
que o programa se "auto 
destrua" caso sejam gerados 
valores muito extremos 


Execute e veja se s,ai algo do tipo: 



Figura 8 

Caso voce queira ir anotando como vai evo¬ 
luindo o seu crescimento ou da altura de uma planta, 
como vai decrescer o poder aquisitivo do seu sala 
rio com o tempo, quantos são os acertadores da lote 
ria esportiva em cada semana, etc. aí está o progra 
ma que lhe convêm... 

0 TK 90X desenhara os seus diagramas em 
seis cores distintas de forma que pode montar uma 
cor sobre a outra para mostrar de quanto foi a va- 
riaçao desde a Última vez que ocorreu a comprovação. 

0 TK 90X farã com que se mostre na tela uma 
linha vertical (perpendicular) e uma linha de base 
(horizontal) . 


iro jpn 
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Alem disto o TK 90X lhe perguntara em pri¬ 
meiro lugar os valores que desejas utilizar e a se 
guir lhe pedira para que escolha a cor (1 a 6) ria 
qual queres que seja impresso o diagrama. 

Finalmente lhe pedira que tecles os dadbs 
que desejas que apareçam representados no diagrama. 

Por exemplo se você quer representar a va¬ 
riação da temperatura mãxima de alguns dias consecu 
tivos e se no primeiro dia a temperatura for de 

35°C deves entrar com 35, se no dia seguinte a tem¬ 
peratura maxima for 28°C deves entrar com 28 etc. 

Sç em algum instante você desejar sair do 
programa tecle uma letra e o programa voltara a lis 
ta de cores. ■ 

Podes voltar a escolher outro valor para 
que o mesmo contraste com a cor escolhida anterior¬ 
mente de forma que possa ver por exemplo a compara 
ção das temperaturas das semanas anteriores ou ate 
do mesmo mes, porem no ano anterior. 

Note que as cores estão impressas acima 
das teclas dos numeros no seu TK 90X. 

Quando quiseres parar com os dados basta 
entrar com uma STRING (linha 310). 

Para parar totalmente com os dados basta 
teclar "n" ou "H" na linha 420. 

Ai vai o programa 

10 REM ** Histograma ** 

20 FOR j*0 TO 15 
30 READ d 

40 POKE USR "a M + j, d 
50 NEXT j 

60 DATA 127, 127, 127, 127, 127, 127, 127 , 127 
70 DATA 254, 254, 254, 254, 254, 254, 254 , 254 


80 INPUT. "Qual e o seu valor máximo Q (múltiplos de 20)?";m 
90 IF m< 20 THEN PRINT PAPER 4; INK 0; AT 10,9;" 

Muito pequeno!": GOTO 80 

100 IF m >100 THEN PRINT PAPER 3; INK 0; AT 10,9;" 

Muito alto! DonQ"; GOTO 80 
110 INPUT "Qual e a cor (1-6)?0"; c 
120 IF c < 1 OR c > 6 THEN GOTO. 110 
130 CLS 

140 LET s * INT(m/20) 

150 LET p«l 
160 FOR k=l TO 19 
.170 IF s*k > 9 THEN LET p=0 
130 PRINT AT 20-k, p; s*k 
190 IF k=9 THEN LET p=20 
200 NEXT k 
210 LET coluna = 1 
220 FOR i-1 TO 14 
230 LET coluna * coluna+2 
240 PRINT AT 21, coluna; i 
250 NEXT i 
260 PLOT 18,170 
270 DRAW 0,-155: DRAW 230,0 
230 SOUND .1,11: SOUND .2,12: SOUND .3,13 
290 LET coluna = 3 
300 INPUT "Qual é o valor? v$ 

310 IF v$(1) >"9" OR v$(l) <"0" THEN GOTO 410 
320 LET valor - VAL v$ 

330 IF valor >m THEN LET valor = 

340 FOR j=0 TO valor / s 
350 IF j-0 THEN GOTO 370 
360 PRINT INK c; AT 20-j, coluna 
370 NEXT j 

380 LET coluna * coluna+2 
390 IF coluna - 31 THEN GOTO 410 
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400 GOTO 300 

410 INPUT "Vai entrar com algo, mais? £1"; r$ 
420 IF r$(l) = "N" 0R r$(l) = "n" THEN STOP 
430 INPUT "Qual e a cor agora?ü c 
440 IF c < 1 OR c > 6 THEN GOTO 430 
450 GOTO 290 


Entre com os seus dados e veja se obtem 
algo parecido com o que se mostra na Figura 9. 



Figura 9 
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Este programa lhe permite desenhar figuras 
na tela do aparelho de T.V. 

Ele e muito instrutivo pois lhe permite 
sentir todo o poder da instrução PL0T e lhe dara 
muita experiência com o sistema de coordenadas (X, 

y). 

Nao se deve deixar de citar o lindo efeito 
do INVERSE usado com a instrução PLOT. 

0 quadro ou a figura e desenhada utilizan¬ 
do-se as teclas 5,6,7 e 8 para mover um pequeno cur 
sor "faiscante" ao redor da tela. 

Como um auxilio (fundamental alias...)caso 
você esteja procurando um desenho de muita precisão 
exibe-se no canto baixo da esquerda e isto continua 
mente a posição atual do cursor, isto ê, as coorde¬ 
nadas do mesmo. 

0 cursor deixa uma linha preta atras de si 
a medida que se desloca, a menos que voce mantenha 
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a teçla SEIFT abaixada, quando então ele desenhará 
uma linha branca, permitindo-lhe apagar desta forma 
qualquer erro que tenha cometido. 

Caso você tenha parado o programa com um 
SHIFT-BREAK e notar que algo mais poderia ser agre 
gado a sua obra prima nao entre com -RUN pois assim 
voce vai limpar tudo da tela. 

Em vez disto entre com o comando CONT( cont 

nue) . 

Finalmente o programa neste caso foi estru 
turado como se fosse um LOOP sem fim pois o que se 
deseja ê uma atividade continua e a cada passo mais 
criativa e imaginativa da sua parte. 

Seria um tanto lusitano (sem mexer demais 
com os queridos descobridores...) a todo momento o 
programa lhe perguntar: 

Voce deseja continuar (S/N)? f \ 

10 LET x = 127: LET y = 88 (Sí ' 

20 FOR c = 0 TO 1: PLOT INVERSE c; x,y "Qj 

30 LET k = CODE INKEY$ -- j 

40 IF k >=53 AND k < =56 THEN PLOT x,y / 

50 IF k > =8 AND k <=11 THEN PLOT INVERSE l;x,y / 

60 PRINT AT 20,0; "X»"; x; "y=";yJ" □□□ " / 

70 IF (k=8 OR k=53) AND x >0 THEN LET x=x-l / 

80 IF (k=9 OR k“56) AND x <255 THEN LET x=x+l / 

90 IF (k=10 OR k*54) AND y >0 THEN LET y»y-l / 

100 IF (k»ll OR k=55) AND y< 175 THEN LET y»y+l / 

110 NEXT c / 

120 GOTO 20 f 

Você já sabe, pois tem o meu livro o "BASIC no TK 90X" que a 
função ou variavel INKEY$ retorna um valor STRING. 

Como precisamos da um valor numanco a obrxgatorio o uso da 
instrução CODE para podermos lidar com o movimento do cur¬ 
sor sem impressão (códigos 8,9,10 e 11)__ 
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Linha 10 —► Aí estão os valores iniciais para a abscissa(x) 
e para a ordenada (y) 

Linha 20 a 110—► LOOP principal para ativar e apagar o pur- 
sor "piscante" 

Linha 30 —0 seu TK 9$X espera que você aperte alguma te¬ 
cla 

Linha 40 —Se uma das teclas 5,6,7 ou 8 for apertada ter- 
se-ã marcada a posição atual do cursor em preto 

Linha 50 —Se a tecla SHIFT for pressionada juntamente com 
uma das teclas 5,6,7 ou 8 então ter-se-5 marca¬ 
da a posição atual do cursor em branco 

Linhas 55 e 60 —^Imprime-se o valor atual das coordenadas 
do cursor. 

A linha 55 é necessária para que na próxima vez 
seja limpo o espaço ocupado ,pelos numeros que 
representavam as coordenadas da .ultima posi 
ção 

Linhas 70 a 100 —— Aí sao calculadas as. novas coordenadas 

Linha 120 —^-Volta-se para um novo "faiscamento" do cursor 

Caso você esteja sem imaginaçao* do que deve dese^ 
nhar aí vai uma sugestão. 



Figura 10 
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Este e um programa muito util para apre¬ 
sentar mensagens de divulgação com o auxilio do ca¬ 
ractere grafico. 

Inicialmente o programa permite criar uma 
tela em alguma cor escolhida e com as teclas"5" , "6" , 
"7" ou "8" pode-se controlar as direções. 

A tecla "1" ordena que se desenhe e com a 
tecla , ’2 ,, se manda imprimir um espaço em branco ou 
seja interrompe-se a impressão. 

Depois que tiver desenhado tudo o que qui¬ 
ser na tela tecle um "c" de chega (por enquanto, pe¬ 
lo menos...) e ai sim escreva a mensagem que quer di 
vulgar, nao esquecendo de escolher a linha onde quer 
que a mesma apareça. 

Depois de ter escrito a mensagem volte ao 
menu para escolher a nova opção. 

Voce pode apertar a tecla "4" se quiser 
"acabar” com o programa. 
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0 programa pode guardar ate 7 telas: dife¬ 
rentes, porém apenas uma mensagem devido ao compri¬ 
mento variavel que a mesma pode ter. 

Aí vai o programa 

10 DIM t$(7,704) 

20 LET c$ = 

30 CLS 

40 POKE 23692,-1: PRINT AT 21,0; 

50 PRINT INK 1; "l-Criar uma tela nova" ,>,, "2-Apresentar a 
tela: existente" ”” "3-Alterar a mensagem" M ” "4-Pa- 
rar" 

60 INPUT k; CLS 

70 IF k < 1 OR k > 4 THEN GOTO 60 
80 IF k-4 THEN STOP 
90 IF k=3 THEN GOTO 300 

100-INPUT INK 2; 'FLASH 1; "Em que tela você quer desenhar? 
(1-7)"; n 

110 IF n<l OR n >7 OR n<> INT n THEN GOTO 100 
120 INPUT "Qual é a cor da tinta?□□□ "; t 
130 IF k=2 THEN GOTO 390 

140 PRINT INK 2; "Criar a tela usando as teclas 5,6,7 ou 8 
para controlar o cursor" 

150 PRINT * INK 1; "Use 1 paraB, 2 para espaço em branco 
e C para chega" 

160 LET Í = 11: LET c=16 
170 LET t$(n,l TO 704) = 

180 FOR z=l TO 599: NEXT z 

190 PRINT AT 0,0; INK t; t$(n); AT 2-,c; INK 1; FLASH 1; "+" 

200 LET e$ = INKEY$ : IF INKEY$ = "" THEN GOTO 200 

210 IF e$ = "1" THEN LET c$ * 

220 IF e$ = "2" THEN LET c$ * 

230 LET c - c - (e$ - "5") + (e$ - "8") 
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240 LET c = c + (c^0) ^ (c >31) 

250 LET t ~ A- (e$ = "7") + (e$ = "6") 

260 LET i = £ + (£ < 0) - (£>21) 

270 LET t$ (n, £*32+c+l) = c$ 

280 IF e$ = "C" OR e$ = "c" THEN GOTO 300 
290 GOTO 190 • 

300 INPUT INK 1; "Em que linha você quer imprimir a mensa¬ 
gem publicitaria? (0-21 )□";££ 

310'IF££<0 OR ££> 21 THEN GOTO 300 

320 SOUND 1/(M +1), ££: SOÚND 1/(U +10), SLSL+2 

330 INPUT INK 1; "Qual i a cor?”;cor 

340 INPUT FLASH 1; "Voce quer ver cintilando? (1 para sim e 0 
para nao)p";f 

350 SOUND 1/(f+2), f+4: SOUND l/(f+4), f+8 
360 INPUT INK 2; FLASH 1; "Entre com a sua mensagem..."; f$ 
370 LET‘& $ -■ "DDDonaaDODooaoonBDaaaonanaDooaDo" + f$ + 
"DooDanDonaDooqnpanoDODaqDononDDd" 

380 GOTO 30 

390 PRINT AT 0,0; INK t; t$(n) 

400 FOR j=l TO LEN £$ - 32 
410 SOUND .013,12 

420 PRINT AT U 0; INK cor; FLASH f; £$ (j TO j+31) 

430 IF INKEY$ = "c" OR INKEY$ » ”C" THEN STOP 
440 PAUSE 40 
450 NEXT j 
460 GOTO 30 



Execute o programa e veja se obtem algo do 
seguinte tipo: 






Figura 11 
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Este ê um programa util principalmente pa¬ 
ra aqueles ou melhor para aquelas que tem o habito 
de efetuar pesagens do tipo quanto vai isto paradar 
certo em uma receita (aindo acho que a maior parte 
do pessoal da cozinha e constituído por pessoas de 
sexo feminino,..). 

Na realidade o programa que vem a seguir e 
um tipo de jogo no qual com o menor numero de tenta 
tivas e com a ajuda de um conjunto de "pesos" voce 
deve dizer quantos necessita para equilibrar uma 
balança. 

Ao executar o jogo em uma das suas etapas 
pode-se ter a situação indicada na Figura 12. 

Na tela aparece uma balança com um peso co 
locado no prato da esquerda. 

0 TK 90X lhe pedira que escolhas alguns en 
tre os 6 pesos que aparecem na parte inferior da te 
1 a. 
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Figura 12 

0 TK 90X irã passando por todos os pesos 
disponíveis possibilitando-lhe escolher aqueles que 
desejas usar. 

Quando quiseres usar um peso tecle "S" e 
em caso contrario um "N" (ou qualquer outro caractere). 

Os seus pontos ficam registrados na parte 
de cima da tela. 

10 REM ** 0 jogo da balança *** 

20 RAND 

30 LET c - 0 » acumula-se a 

40 LET t = 0 — contam-se as tentativas 

50 CLS 

60 LET k « 25 

70 PRINT PAPER 6; INK 0; AT 0,2; "TENTATIVAS:"; t 
80 PRINT PAPER 6; INK 0; AT 0,18; "PONTOS:"; c 
90 FOR j=l TO 30 STEP 5 
100 PRINT PAPER 2; INK 0; AT 15, j; k; "g” 

110 LET k-k*2 
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120 NEXT j 
130 GOSUB 500 

140 LET tinta = INT (END*5)+2 
150 LET tt = 0 

160 LET r = (INT(RND*63)+1)*25 

170 PRINT PAPER 4; INK 0; AT 2,0; "O PESO A DETERMINAR É 
DEÜ r; "g" 

130 LET t - t+1 
190 PRINT AT 8,10; "ÜJ 1 1" 

200 LET d = 0: GOSUB 700 
210 PRINT INK tinta; AT 10,10; "I 
220 LET k=25 
230 FOR j=l TO 6 

240 PRINT PAPER 4; INK 0; AT 20,2; ”Voc9 quer um peso de O"; 



k; V" 

250 LET r$ = INKEY$ 

260 IF r$ = ""THEN GOTO 250 


270 IF r$ = "S" OR r$ = "s" THEN LET tt = tt+k: PRINT PAPER 
3; INK 0; AT 17, (j-l)*5+2; "1" 

280 IF r$i<> "S" AND r$ <>"s" THEN PRINT PAPER 6; 

INK 0; AT 17,(j-l)*5+2; "0" 

290 FOR z=l TO 45: NEXT Z: LET k=k*2: SOUND .018,10 
310 NEXT j 

320 PRINT INK 2; AT 3,18; "■■■D" 

330 FOR z=l TO 45: NEXT z 
340 IF tt < r THEN GOTO 470 
350 LET d-1: GOSUB 700 
360 PRINT AT 10,10; ” ODD ” 

370 PRINT AT 8,18; "nnüD" 

330 IF tt > r THEN GOTO 445 
390 LET d * 0: GOSUB 550 
400 PRINT INK tinta; AT 9,10; 

410 PRINT INK 2; AT 9,18. "«MO ” 

420 SOUND .5,5: SOUND .6,6 


430 LET c-c+1 

440 GOTO 480 

445 LET d~0:. GOSUB 300 

450 PRINT INK tinta; AT 8,10; "*■«" 

460 PRINT INK 2; AT 10,IS; 

470 SOUND 1,-13 

480 FOR p=l TO 300: NEXT p 

490 GOTO 50 

500 PLOT 95,80 

510 DRAW 60,0 

520 PLOT 125,80 

530 DRAW 0,50 

540 CIRCLE 125,130,4 

545 RETURN 

550 PLOT OVER d; 90,130 
560 DRAW OVER d; 70,0 
570 DRAW OVER d-; 0,-30 
580 PLOT OVER d; 150,100 
590 DRAW OVER d; 20,0 
600 PLOT OVER d; 90,130 
610 DRAW OVER d; 0,-30 
620 RETURN 

700 PLOT OVER d; 90,120 
710 DRAW OVER d; 70,20 
720 DRAW OVER d; 0,-30 
730 PLOT OVER d; 150,110 
740 DRAW OVER d; 20,0 
750 PLOT OVER d; 90,90 
760 DRAW OVER d; 0,30 
770 RETURN 

800 PLOT OVER d; 90,140 
.810 DRAW OVER d; 70,-20 
820 DRAW OVER d; 0,-30 
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830 PLOT OVER d; 150,90 
840 DRAW OVER d; 20,0 
850 PLOT OVER d; 90,110 
860 DRAW OVER d; 0,30 
870 RETURN 



^0.1.^ Por favor apos executar o programa se achar 
que o mesmo e infantil, não lhe e permitido falar 
impropérios visto que somar nao ê todo mundo que 
consegue hoje em dia e de cabeça ou melhor com a 
cabeça apenas ... 

Nao esqueça que este livro nem passou pela 
censura pois ele so e iraproprio para pessoas impro 


pr ias 


Mas você ê o(a) prõprio(a)!!II 
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Um (uma) "cientista louco" ("pirada") des¬ 
cobriu um liquido altamente perigoso o qual se não 
for misturado em proporção correta com a agua farã 
explodir o seu TK 90X, o que estiver nas suas proxi 
midades e como nao podia deixar de ser VOGEEEEEE... 

Voce tem entretanto a possibilidade (e su¬ 
ponho a capacidade...) de impedir que isto aconte¬ 
ça colocando a quantidade de agua correta que torne 
sem efeito o poder destruidor do fluido. 

Para isto basta que você calcule (mental¬ 
mente...) quanta agua ê necessãria para "desativar" 
o fluido empregando a relação que aparece na tela 
onde o primeiro numero corresponde no fluido e o se 
gundo a agua. 

Caso a sua resposta seja correta com apro- 
ximaçao de ate 5% do verdadeiro valor você esta sal 
vo nesta porem se estiver fora deste intervalo ou¬ 
viras uma explosão.. 
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Dizem que gato(a) tem "sete vidas'- e neste 
jogo explosivo lhe são conferidas quatro vidas,apos 
o que o jogo químico termina. 

Entre pois com a quantidade de agua que 
pensas ser a conveniente, tecle "ENTER" e note como 
vai caindo agua dentro do recipiente e voce nem 
abriu a torneira... 

Bera, tenha vida longa, viu!!! 

Aí vai o programa: 

10 REM ** Químico ** 

20 RAND 

30 LET C = 0 

40 LET v = 4 

50 LET f - INT(RND*5)+1 

60 LET a = INT(RND*7)+2 

70 PRINT PAPER 2; INK 0; AT 6,3; "Prepare-se, pois voce tem;’’ 
80 PRINT PAPER 3; INK 0; AT 8,1; f; ”□ partes de fluido por 
□ a;"Opartes de agua". 

90 PAUSE 300 
100 CLS 

110 PRINT PAPER 6; INK 0; AT 0,4; "vidas :0"; v; 

120 PRINT PAPER 6; INK 0; AT 0,19; "’pontos:D ";c 

130 PRINT PAPER 2; INK 0; AT 3,10; "A RELAÇÃO fi DE:D"; f; 

: ;a 

140 PLOT 110,90 

150 DRAW 0,-60 

160 DRAW 35,0 

170 DRAW 0,60 

180 LET r = INT(RND*25)+1 

190 PRINT PAPER 4; INK 0; AT 6,6; "Tens □ "; r; " □ litros 
de fluido" 

200 PRINT PAPER 4; INK 0; AT 8,2; "Quanta agua você vai 
usar?" 
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210 PRINT INK 2; AT 16,14; "■MB" /" 9", 
220 PRINT INK 2; AT 17,14; "SIU" \ll a 
2 30 INPUT resposta 

240 PRINT PAPER 4; INK 0; AT 20,8; resposta; 


fcAPS SHIFTU tecla\ 
"9", quatro vezes a] 
tecla "8" e novamenJ 


te a tecla "9" 


litros de 



250 LET t = (r/f)*a 
260 FOR j=l TO 4 
270 FOR k=10 TO 15 
280 PRINT INK 5; AT k,16; 

290 PAUSE 7 
300 PRINT AT k,16; 

310 SOUND .15,k 
320 NEXT k 

330 FOR j=Í5 TO 12 STEP -1 
340 PRINT INK 5; AT j,14; 

350 NEXT j 
360 PAUSE 150- 

370 IF resposta > t - t/20 AND resposta < t + t/20 
THEN GOTO 490 
380 FOR j-6 TO 0 STEP -1 
390 PAPER j 

400 SOUND .25, j*2: SOUND .3,j*3 
410 CLS 
420 NEXT j 

430 PRINT INK 7; AT 6.0: "Voce tem agora uma vida a 


440 PAUSE 300 
450 LET v=v-l 
460 PAPER 7 

470 IF v=0 THEN GOTO 570 
480 GOTO 100 

490 SOUND .3,7: SOUND .5,10: SOUND .7,12 

500 FOR j=12 TO 17 

510 PRINT INK 3; AT k,14; 
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520 NEXT j 

530 PRINT PAPER 4; INK 0; AT 20,3; "Fluido diluido correça- 
mente" 

540 LET c = c+1 
550 PAUSE 350 
560 CLS: GOTO 50 
570 OLS 

580 PRINT PAPER 3; INK 0; AT 9.,3; • "Perdeste todas as suas 
vidas" 

590 PRINT PAPER 3; INK 0; AT 12,6; "A sua pontuação final 
e O"; c 
600 STOP 

No decorrer do jogo uma possível tela pode 




Figura 13 
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Neste capítulo temos um programa que impr' 
me uma tabela e também o grafico mqstrando os poss 
veis resultados do lançamento simultâneo de três d 
dos quanto a soma de pontos obtidos. 

Alias, uma das coisas mais "elementares"ao 
se iniciar um curso de teoria das probabilidades é 
este tipo de discussão, visto que este modelo mate¬ 
mático permite definir com simplicidade o que vem 
a ser eventos mutuamente exclusivos, independentes, 
dependentes, etc. 

0 programa indica todos os casos quanto a 
soma de pontos, enumera os resultados favoráveis e 
imprime a probabilidade de cada um. 


Alem disto e apresentado na tela o grafico 
da curva da distribuição de probabilidades (veja a 
Figura 14). 


■r-U VHI 0| 
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Figura 14 

Aí vai o pequeno, porem importante progra 

ma. 

10 LET j=RND*4+3 
20 FOR s=3 TO 18 

30 PRINT AT s,20; PAPER j; "ODGDDDOOODUO" 

40 NEXT s 
50 DIM s (18) 

60 PRINT AT 1,0; "SOMA"; TAB 5; "CASOS"; TAB 12; "PROB."; 

TAB 21; "GR&FICO" 

70 FOR b=l TO 6 

80 FOR c=l TO 6 

90 FOR d=l TO 6 

100 LET e=b+c+d 

110 LET s(e) = s(e)+l 

120 NEXT d: NEXT c: NEXT b 

130 FOR s*3 TO 18 

140 PRINT AT s,0; s; TAB 5; s(s); TAB 12; ”1/"; INT 
<216/s(s>) 

150 PLOT INK 0; 2*s+185, 50+3*s(s) 

160 NEXT s 


Depois de um "programinha" deste (serã que 
existe gente que ê fanatico(a) por matemática, mais 
especificamente pela teoria das probabilidades?) so 
um pouco dè musica classica para acalmar aquele(a) 
que se transtornou... 

Apesar de que a "onda" atual e enaltecer a 
Mozart (vide o sucesso de "Amadeus") o seu TK 90X 
irã homenagear através do programa aqui apresentado 
à Ludwig Von Beethoven, compositor alemão nascido 
em Bonn em 1770 e falecido em Viena em 1827. 

Beethoven foi autor de trinta sonatas para 
piano, dezessete quartetos, nove sinfonias, cinco 
concertos para piano e um para violino. 

Alem disto e também o autor de aberturas 
da opera Fidêlio, da Missa solemnis'(missa em re), 
obras de profundeza de sentimentos e de um poder de 
expressão artística incomparáveis. 

Beethoven teve existência .muitas vezes di- 
. fícil e foi, cedo, atacado de surdez. 

Este programa é recomendável a todos que 
gostam de musica classica e principalmente para 

aqueles que sejam seguidores do "ilustre surdo". 

Alem do que, não hã quem não goste de ser 
d es per tado (a) ou estar envolvido(a) por uma melo¬ 
dia como a que se vai ouvir!!! 

10 DIM s(122) 

20 FOR j=l TO 122 
30. READ s(j) 

40 NEXT j 
50 FOR j=l TO 122 
60 SOUND ,22,s(j) 

70 NEXT j 
80 GOTO 50 
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100 DATA 16,15,16,15,16,11,14,12,109,04,09,00,04,09,11, 
04,08,04,08 

110 DATA 11,12,04,09,04 

120 DATA 16,15,16,15,16,11,14,12,09,;04,09,00,04,09,11, 
04,08,04,12 

130 DATA 11,09,04,09,11,12,14,16,07,12,07,17,16,14,07, 
11,07,16,14 

140 DATA 12,4,9,4,14,12,11,4,8,4,3,11,16,16,15,16,15,16 : 

11,14,12,9,4,9,0,4,9,11,4,8,4,8,11,12,4,9,4 
150 DATA 16,15,16,15,16,H,14,12,9,4,9,0,4,9,11,4,8,4, , 
12,11,9,4,9 
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Neste programa exibe-se a conversão de 

graus centígrados ou Celsius para graus Fahrenheit 
e vice-versa tanto analiticamente como graficamen¬ 
te cabendo a você uma das escolhas <ou ambas. 

A cada resultado numérico o seu TK 90X a- 
ciona o seu sistema de "ruido" para não dizer os 
seus recursos sonoros. 

Note o recurso que lhe permite o TK 90X de 
criar o caractere " * " para indicar os graus (li¬ 
nha 160) . 

10 REM *** Fahrenheit X Celsius*** 

20 PAPER 2: INK 5: BORDER 1 
30 FOR j-0 TO 7: READ codigo 
40 POKE USR "a" + j, codigo: NEXT j 
50 DATA 64,160,64,0,0,0,0,0 

60 REM * Para obter o caractere da linha 160 escreva "a” em 
modo grafico * 
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70 PRXNT "Faça. a sua escolha" 

80 PRINT: PRINT 

90 PRINT "Entre com 1 para a conversão centígrados para 
Fahrenheit" 

100 PRINT 

110 PRINT "Entre com 2 para a conversão Fahrenheit para 
centígrados" 

120 INPUT n 

130 IF n=l THEN GOTO 180 

135 IF n < >2 THEN GOTO 120 

140 INPUT "Entre com os graus Fahrenheit"; f 

150 LET ,c»5*(f'-32)/9 

160 PRINT f; " *> Fahrenheit » c; " ^centígrados" 

170 GOTO 210 

180 INPUT "Entre com os graus centígrados" ;c 
190 LET f=1.8*c+32 

200 PRINT c; " •>centígrados = ";f;” ‘^Fahrenheit" 

210 PRINT: PRINT 

220 PRINT "Voce quer fazer alguma outra conversão? (S/N)" 

230 INPUT r$ 

240 IF r$ = "s" OR r$ - "S" THEN GOTO 80 

250 SOUND 2,20: SOUND 1.5,15: SOUND 1,10: SOUND .5,5 

260 CLS 

270 PRINT FLASH 1; "Você agora vai apreciar uma interessante 
conversão grafica’ com a escala Fahrenheit na vertical e 
a escala Celsius na horizontal" 

280 REM ** AÍ vai o grafico de conversão que evidentemente ê 
aproximado 

290 FOR f - 30 TO 220 STEP 10 
300 IF f <100 THEN PRINT 
310 PRINT f; 

320 FOR c-1 TO 5*(f-32)/45 

330 IF c/6-l-INT (c/6-1) THEN LET t-0 

340 LET t - t+1 
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350 PRINT INK t; 

360 NEXT.c 

370 LET t=0: PRINT 

380 NEXT f 

390 PRINT TAB 3; "102030405060708090100" 

400 FOR j=10 TO 20: SOUND ,l,j 
410 SOUND 1,20-j:'NEXT j 
420 STOP 

Ao executar a 2? parte do programa (linhas 
280 a -410) vocedeve obter o seguinte desenho: 


30 

4.0 

30 

60 ■ h ■ 

70 ■ ■ 

lllll 

90 

iea«■■■••« 
U0BriMMa 

ISO mm mmmmmmm 

130 

14-0 ■■■■■■«■■••■ 

1?0 

160 ■■■■■■■■•■■■»• 

170 

180 

190 

... 

220 m mmmmmmmmmmmmrnm 


1030304-05080708090100 


Figura 15 
















Capítula 13 
Amjplauu 


Vamos executar um programa que permita mo¬ 
vimentar o aeroplano da Figura 16 da esquerda para 
a 'direita da ‘tela. 



(5íMíO 


Figura, 16 
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Vai se desenhar a próxima posição antes de 
apagar a imediatamente anterior. 

Ao teclar e executar o programa que vem a 
seguir você vai se convencer de que a animação con 
seguida com programação em linguagem BASIC onde se 
utiliza fundamentalmente a instrução DRAW ê bastan 
te lenta para que.se possa dizer que temos realraen- 
te um movimento. 

Para que se possa "animar" figuras do tama 
nho da indicada na Figura 16 a solução adequada ê o 

uso de linguagem de máquina. 

.Aliás, o meu filho Victor promete para bre 
ve um livro sobre o assunto... 

5 REM *** Movimento do aeroplano *** 

10 PAPER 7: INK 1:, BOEDER 7 
20 FOR j —12fii TO 240 STEP 2 
30 PLOT j, 100: GOSUB 100 
43 CLS 

45 PLOT j,100: GOSUB 100 
47 SOUND 0.2,-j/60 
50 NEXT j 
5-3 INK 6*RND 

55 FOR Z=1 TO 399: NEXT Z 
60 CLS 
70 GOTO 20 
100 DRAW -20,11 
110 DRAW -10,-2 
120 DRAW -40,13 
130 DRAW 23,-14 
140. DRAW 17,1 
150 PLOT' j-47,108 
160 DRAW -28,-3 
170 DRAW -9,16 
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180 DRAW. -6,-21 
190 DRAW 43,-2 
200 DRAW -23,-18 
210 DRAW 35,13 
220 DRAW 25,1 
230 DRAW 10,6 
240 RETURN 

Se voce gostou deste programa escolha um 
sistema de referencia adequado e faça se mover de 
cima para baixo e vice-versa o seguinte helicõptèro 
(Figura 17). 



Ê natural que não espero que o seu helico£ 
tero seja tão "lindo" como o da Figura. 

Mãos a obra, veja se consegue isto!'.!’. 


Capítula 13 
Sata aamamica 


Este e um programa de aplicação comercial 
no qual se pode calcular o lote econômico a enco¬ 
mendar para se efetuar a reposição dê estoque ou se 
ja e a quantidade de unidades de um certo artigo 
que tornam mínimo o custo global levando-se em con¬ 
ta apenas o custo de manutenção do estoque e o cus¬ 
to do pedido que implica entre outras coisas em pa¬ 
gar o transporte. 

0 seu TK 90X lhe pedira a demanda para um 
período de planejamento, o numero que corresponde 
ao codigo de um artigo o preço unitário do mesmo, o 
nome do seu fornecedor e o custo de um pedido. 


tirar muitas dúvidas sobre o assunto 
consulte o nosso livro Pesquisa Operacional - vol.l 
ou então Aplicações de Pesquisa Operacional -vol.l. 
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Ai vai o programa: 

5 PAPER 7: INK 1: BORDER 7 
10 REM d - demanda para o horizonte de planejamento 
20 REM r = cõdigo do artigo 
30 REM C = preço unitário do artigo 
40 REM f$ / = nome do fornecedor 
50 REM k = custo de um pedido 

60 REM h = custo de estocagem àe um artigo por período 
70 REM h' = .20*C (formula adotada) 

80 INPUT "Entre com a sua demanda";d 
90 INPUT Í! Entre com o cõdigo do artigo" ;r 
100 INPUT "Entre com o preço unitário do artigo";C 
110 INPUT "Entre com o nome do fornecedor";f$ 

120 INPUT "Entre com o custo do pedido"; k 
130 REM ** Calculo do lote econômico** 

140 LET h = .2*C 

150 LET y = SQR(2*k*d/h.): LET y = INT(y+.5) 

160 PRINT: PRINT 

170 PRINT TAB 5; "Voce deve pedir deD";f$ 

180 PRINT: PRINT 
190 FOR z=l TO 32 
200 PRINT 
210 NEXT z 

220 PRINT TAB 3; y;"Q unidades do artigo#";r 
230 FOR z~l TO 32 
240 PRINT "*"; 

250 NEXT z 

260 LET custo=»SQR(2*k*h*D): LET custo=INT(100*custo+.5)/100 
270 PRINT "0 custo destes pedidos para o horizonte de demanda 
d d; "□ artigos e:" 

280 PRINT 

290 PRINT TAB 10; "custo=";custo 
300 PRINT 



310 INPUT "Voce quer ver a representação gráfica do seu 
problema de estoque (S/N)?"; r$ 

320 IF r$ » "s" OR r$ = "S" THEN CLS: GOTO 340 
330 STOP 

340 REM ** Aí vai a construção das curvas de custo 
345 LET a=l: LET b=y+30 
350 FOR j=a TO b ^ 

360 PLOT 5*j,k*d/(60*j) 

370 PLOT :5*j,h*j/120 
380 PLOT 5*j, 1/60*(k*d/j+h*j/2) 

390 NEXT j 

400 PLOT 0,175; DRAW 0,^175: DRAW 255,0 
410 FOR k=l TO 10 
420 SOUND .2,11 
430 NEXT.k 
440 GOTO 330 


Execute e veja se obtem um gráfico do se- 



este 60 é um fator 
de escala que o ca- 
ro(a) leitor (leito 
ra) pode mudar caso 
seja necessário _ 


Figura 18 





(íaptiultf 14 
(ílfapÊu tttextam* 


Quem e que nao fica fascinado quando um 
micro lhe consegue uma representação a tres dimen¬ 
sões? 

Desconheço... 

É muito simples, em certos casos,obter re¬ 
presentações tridimensionais quando se tem as fun¬ 
ções matemáticas. 

É o caso deste programa no qual se repre¬ 
senta a função 



onde r é a distancia do centro do plano X-Y até o 
ponto que se esta desenhando. 

Embora o programa seja relativamente pe¬ 
queno p.ara entrar no TK 90X esteja ciente que vai 
levar quase meia hora para que voce veja o que esta 
mostrado na Figura 19. 
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Figura 19 

10 FOR x=40 TO 215 
20 LET max » 999: LET min =■ 0 
30 FOR y - 16 TO 144 STEP 4 

40 LET r=SQR((x-127)*(x-127)+(y-80)*(y^0))/15 
50 LET z=INT(y+90*EXP(^r/3)*cosr) 

60 IF z< max OR z > rain THEN PLOT x,z 
70 IF zcmax THEN LET max = z 
80 IF z >min THEN LET min = z 
90 NEXT y 
100 NEXT x 

AÍ vao algumas explicações: 

Linhas 10 a 100 —*■ Ê o "LOOP" para todos os pontos 
com x variando de 40 até 215. 

Linha .20 As variáveis "max" e "min" sao utilizadas 
para não permitir representações fora dos 
limites. 

Linhas 30 a 90 —•» LOOP com passo 4 para a variável 

y de 16 até 144. 
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Linhas 40 e 50 —»• Calcula-se a altura na qual de- 
ve-se representar o ponto. 

Linha 60 —*• "Desenha-se" desde que não se esteja fo 
ra dos limites. 

Linhas 70 e 80 Atualizam-se os valores das "va¬ 

riáveis" max e min ou seja dos pontos 
mais alto e mais baixo para esta coorde 
nada x. 

Bem, execute agora o programa, mas tenha 
bastante-paciência... 

Ninguém ê de ferro, nao e? 
a Eu s ei disso! I ! 

Ê justamente por isto você agora vai ter 
um pouco de diversão associada a uma interessante 
representação grafica na tela. 

Nada mais merecido para quem espera tanto 
para ver um "sombrero". Seja porem bem dinâmico no 



0 intuito do jogo e fazer com que uma co¬ 
bra sinuosa e sua amiga (por incrível que possa pa¬ 
recer...) consiga passar entre um conjunto de trian 
gulos . 

Caso a cobra toque em algum destes triân¬ 
gulos com a sua cabeça recebera um ferimento mortal 
e com isto você perde a sua amiga e o jogo termi¬ 
na... 

Como fazer para não matar a sua amiga? 

Bem, voce percebera logo que a cobra se 
desloca para a esquerda sem a necessidade de nenhum 
comando (até parece uma cobra política...) porem 
voce pode fazer com que ela vã para a direita pres 
sionando a tecla "8". 
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Bem divirta-se agora e espero que consiga 
marcar mais que 1000 pontos... 

10 REM *** A cobra nos triângulos *** 

20 GO SUB 310: LET recorde = 0 
30 GOSUB 270 
40 PRINT AT 9, c; 

50 LET c « c+2*(INKEY$ = "8" AND v<29) 

60 IF c > 0 THEN LET c = c-1 
70 IF SCRÈeN$( 10,c) = T HEN GOTO 200 
80 PRINT AT 9,c; INK 6; " A"; AT 10, c; 

90 PRINT AT 21,0; 

100 PRINT TAB JNT(RN1 
110 POKE 23692,255 
120 LET p=p+l: PRINT 
130 GOTO 40 

200 PRINT AT 0,0; OVER 1; PAPER 8; INK 2; a$(l) 

210 PRINT AT 1,10; FLASH 1; "0 jogo acabou" 

220 PRINT AT 6,5; "Voce obteve:"; p; "D pontos" 

230 IF p >recorde THEN LET recorde = p 
240 PRINT AT 8,3; "Seu recorde ate agora é:HT; recorde; 

"□ pontos" 

250 INPUT "Aperte PAPER 1; "ENTER"; PAPER 0;"Qpara 
jogar de novo O"; LINE r$: GOTO 30 
260 STOP 

270 BOEDER 0: PAPER 0: INK 7: CLS: LET v=10: LET c=15 
280 LET p=»0: RAND-. 

290 DIM a$(l,704) 

300 RETURN 

310 FOR j* USR "a" TO USR "c" + 7 
320 READ usuário: POKE j, usuário 
330 NEXT j 
340 RE TU RN 
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350 DATA 255, 126, 126, 60, 60, 24, 20, 0 
360 DATA 0, 99, 119, 127, 62, 23, 0, 0 
370 DATA 99, 119, 73, 73, 127, 62, 28, 0 



iioritmo 


Este programa ilustra muito o uso de subro 
tinas quando uma operação similar ou geralmente a 
mesma é necessária mais doque uma vez em um progra 
ma. 

Este programa se baseia na teoria de que 
os seus ciclos emotivo , físico e intelectual seguem 
um padrao regular de períodos 28, 23 e 33 dias res 
pectivamente a partir da data.do seu nascimento. 

0 programa "BIORÍTMO" permite que os ■* al~ 
tos e baixos" dessas tres curvas (veja a Figura 20) 
sejam representados para um período de 4 semanas 
centrado era qualquer data que você especificar. 

Diz-se que os dias nos quais uma curva es¬ 
ta cruzando a linha central sao críticos. 

Pode atê "pintar" para voce, que através 
de um estudo cuidadoso deste tipo de grafico algo 
seja revelado sobre o seu comportamento ou talvez 
mesmo uma forma razoavel de prognosticar o seu futu 
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mesmo uma forma razoável de prognosticar o seu futu 
r o. .. 

Como alerta para seus futuros programas co 
loridos e para lhe poupar experimentação inútil 
anote que comuraente e bom ter um fundo preto e na 
maior parte dos casos as cores magenta (lilás), ver 
de, ciano e amarela dao desenhos melhores que com 
as cores azul ou vermelha-. 

Também linhas diagonais muito finas podem 
provocar efeitos muito esquisitos e neste programa 
as curva? foram desenhadas com 3 pixeis de largura 
para evitar este problema!!! 

Quàndo voce estiver executando este progra 
ma percebera que toda vez que uma linha curva esti¬ 
ver sendo desenhada perto de uma outra linha curva 
desenhada anteriormente de cor diferente então par¬ 
te da linha curva antiga mudara para a mesma cor 
que tem a linha curva nova. 

Isto realmente e uma pequena limitação do 
TK 90X visto que ele so pode ter duas cores papel 
(PAPER) e tinta (INK) em qualquer caseia para ca¬ 
ractere. 

Este programa se utiliza de duas subroti- 
nas uma começando na linha 400 e terminando na li¬ 
nha 490 e a outra começando na linha 500 e terminan 
do na linha 530. 

A primeira (de 400 a 490) faz a analise da 
data em que voce nasceu e a outra desenha as curvas 
senoidais que correspondem ao seu biorítmo. 


Aí vai o programa: 
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10 PAPER 7: INK 0: BORDER 7: INVBRSE 0: OVER 0: PLASH 0: CLS 
20 PRINT AT 5,11; INK 3; "BÍORITMO" 

25 INPUT "Qual e o seu nome?"; LINE n$ 

30 PRINT AT 8,0; "Como vaiD"; n$; AT 10,0; "Qual e a data 
do seu nascimento?" 

.40 GOSUB 400 

50 PRINT AT 11.19; d$: LET.b$ = d$; LET z«x 

60 PRINT AT 12,0;, "Qual e a data de interesse? GOSUB 400 
70 PRINT AT 13,17; "DG"; d$: LET dia » 

80 INK 3: PRINT AT 15,0; "Nesta data" 

90 'PRINT "Voce estarã □ ,, ;dia;"ndiaa mais velho," 

100 PRINT "terã comido.p"; 3*dia; "0 vezes" 

110 PRINT "e tera dormido (aproximadamente)" 

Í20 PRINT FLASH 1 ;TAB 15;INT(8|*dia/1000) Dmilhares de horas" 
130 INPUT "Aperte a tecla ENTER se você quer o seu gráfico 
LINE e$ 

140 PAPER 0: INK 6: BORDER 0: CLS 

150 PRINT TAB 5; "GRAFICO DO SEU BIORITMOV 

160 PRINT TAB 15 - LEN n$/2; n$ 

170 PRINT TAB 12 - LEN b$/2; "nascido emD"; b$ 

180 FOR i=l TO 255 STEP 9: PLOT 1,73: DRAW 0,3: NEXT i 
190 FOR j=l TO 255 STEP 63: PLOT j,71: DRAW 0,6: NEXT j 
200 PLOT 127,10: DRAW 0,128 

210 PRINT AT 21,0; "-2 semanas"; TAB 22; :"+2 semanas" 

220 PRINT AT 21,16 - LEN d$/2; d$ 

230 INK 3: PRINT AT 3,0; "EMOTIVO": LET c=23: GOSUB 500 
240 INK 4: PRINT AT 3,10; "FÍSICO": LETc=23: GOSUB 500 
250 INK 5: PRINT AT 3,21; "INTELECTUAL": LET c«33: GOSUB 500 
260 PAPER 7: INK 0: BORDER 7 
2 70 FOR j=«l TO 21 STEP 3 
230 SOU ND j/20,j 
290 NEXT j 

300 FOR j=21 TO 1 STEP -3 
310 SOUND j/20,-j 
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320 NEXT j 
330 STOP 

400 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 
410 INPUT "Qual e o ano?D"; ano 
415 LET x = 365*ano + INT(anoM) - INT(ano/l00) 

420 INPUT "Qual e o mes (1-12) ?□"; mes 
425 IF mes < 1 OR mes-> 12 THEN GOTO 420 
430 RESTORE 400 
440 FOR j=l TO mes 
445 READ ví LET x*x+v: NEXT j 
450 LET l = ano - 4*INT(ano/'4.) 

455 IF £ = 0 Aíró mes > 2 THEN LET x=x+l 
460 READ v 

465 IF £ - 0 AND mes = 2 THEN LET v = 29 
470 INPUT "Em que dia (1-31)?P"; dia 
475 IF dia < 1 OR dia>v THEN GOTO 470 
480 LET x=x+d 

435 LET d$ » STR$ dia+ , 7" + STR$ mes +"/" + STR$ ano 
490 RETURN 

500 FOR k“0 TO 253: LET p « dia - 14+k/9 
510 PLOT k, 74+60*SIN(2*PI*p/c): DRAW 2,0 
520 NEXT k 
530 RETURN 

Algumas explicações sobre o programa 

1) Linhas 10 ate 70 —Pede-se aí a data do seu nas 
cimento e a data atual, usando a subrotina que 

começa na linha 400. 

Calcula-se o numero de dias (d) entre as 
duas datas e armazena-se nas STRINGs b$ e d$ as 
duas datas. 

Ê interessante destacar o efeito da instru 
ção LINE n$ (linha 25). 


A instrução LINE ê usada nos comandos 
INPUT ou SAVE. 

Ao se usar a instrução LINE sao omitidas 
as aspas durante a introdução da STRING porem 
consideram-se as eventuais aspas do texto. 

Quando se usa LINE em conjunto.com SAVE 
o programa e executado automaticamente a partir 
da linha determinada apos ò LINE. 

2) Linhas 80 atê 120 .—Sao impressos aí algumas in 
formações que talvez voce identifique como inte¬ 
ressantes.. . 

3) Linha 130—•* Aí o TK 90X espera que voce lhe de 
uma ordem para mostrar-lhe o grafico do seu "bio 
ritmo". 

4) Linhas 140 a.tê 220 —*- Com este trecho são im¬ 
pressos o cabeçalho, um sistema de referencia. 

5) .Linhas 2 30 atê 250—■►Desenham-se devido a este 

trecho as tres curvas usando para isto a subroti 
na (500-530). 

6) Linhas 260 atê 330 —Restaura-se as cores do 
papel (PAPER), da tinta (INK) e da.borda (BORDER) 
como cortesia para o(a) proximo(a) usuario(a). 

Porem voce deve aguentar um pouco de ruido 

7) Linha 485 —»AÍ aparece uma concatenação efetuada 
com o auxilio da instrução STR$ que transforma 
um argumento numérico em uma STRING. 

Execute o programa e veja se obtem algo do 

tipo mostrado na Figura 21. 






(Capítulo 16 

Sepmentaçãn òo 
uma função 

Este programa permite que o TK 90X faça o 
grafico da função definida por voce estimado(a) 
usuãrio(a). 

Cabe a voe? escolher os limites entre os 
quais deseja desenhar a equaçao. 

Üma vez executado, isto ê apos o RUN,o pro 
grama lhe perguntara a equação (como função de x) 
que voce quer que apareça na tela. 

Não ha condição neste programa de verifi¬ 
car se a função que você introduziu esta correta 
por isto caro(a) leitor(leitora) tenha um cuidado 
extremo para não introduzir caracteres ilegais ou 
incorretos, falta de parênteses, etc. 

0(A) usuãrio(a) deve teclar depois os limi 
tes mínimo e máximo do valor de x (abscissa) que 
deseja. 

0 programa também lhe perguntara pelo va¬ 
lor das assintotas, caso existam. 
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Você sabe o que e uma assintota? 
nSo:?: 

AÍ vai a respostal 

Uma assintota ê o valor de x para o qual 
a função toma um valor igual a ^oo (infinito). 

É o caso típico da função y * log x para 
x = 0 quando y vale ou melhor tende a -oo. 

0 mesmo ocorre com y = —-y para x = 1. 
ou ainda com 


y = tg x para x = j , -£ 


(2k+l)ir 
- 2 - , 


Se a função escolhida pelo(a) usuãrio(a) 
tem uma ou mais assintotas o programa perguntara pe 
la tolerância no calculo para desta forma se evitar 
o calculo do valor da função para aqueles valores 
de x que estão próximos das; assintotas , o que ine¬ 
vitavelmente aconteceria se a tolerância fosse zero 
( 0 ). 

Em outras palavras, se existe uma assinto¬ 
ta em x*2 e a tolerância que você introduzir for 
0,01 o programa não calculara os valores da função 
para x no intervalo de 1,99 a 2,01. 

0 programa calcula afunção para 211 valo¬ 
res de x dentro do intervalo definido, escolhendo 
os limites convenientes para o desenho dos eixos 
coordenados (x e y). 

As subrotinas que determinam os valores 
dentro de cada intervalo (linhas 580 a 710) utili¬ 
zam um LOOP 5 vezes consecutivas, uma vez para ca¬ 
da intervalo. 

0 valor máximo calculado no LOOP e um pou¬ 
co maior que o máximo requerido, devido a necessida 
de de que os erros acumulados devido ao arredonda¬ 


mento não -façam terminar o desenho do quarto inter¬ 
valo dentro do espaço -do quinto intervalo. 

Analise a seguinte subrotina que ilustra 
o que ocorreria em caso contrario 

10 INPUT I> 

20 FOR j =0 TO N STEP N/.4 
30 PRXNT j 
40 NEXT j 

Se o valor de N com o qual você entrar for 
N = 2,01 os resultados impressos no programa serão: 

0; 0,5025; 1,005; 1,5075; 2,010. 

Ja se voce entrar com o valor de N = 2.03 
então o programa escrevera: 

0; 0,5075; 1,0150; 1,5225 

Neste segundo caso s6 estão escritos 4 re¬ 
sultados porque os erros de arredondamento se acumu 
lam no valor de STEP (incremento), agregando-se ao 
valor da variável j em cada etapa. 

Depois de desenhar o grafico, o programa 
pede ao(ã)’ usuario(a) para introduzir as "coordena 
das" para o comando PRINT AT,utilizado para escre¬ 
ver a expressão matemática cujo grafico você esta 
vendo na tela (linha 790). 

Caso voce não esteja satisfeito com a posi 
ção escolhida pode mudar a mesma simplesmente escre 
vendo por cima da própria através da utilização su¬ 
cessiva de OVER 1 (linha 820). 

Insistir em um unico assunto durante muito 
tempo pode sugerir a voce respeitado(a) leitor(lei- 
tora) falta de imaginação de nossa parte ou seja 
que estou o(a) considerando com poucos neurônios. 
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Vamos então direto ao programa que o resto 
das duvidas serão tiradas por você mesmo meu(minha) 
caro(a)... 


10 PRINT TAB 5; "DESENHO DE UMA FUNÇÃO" 

20 PRINT: PRINT 
30 PRINT "Entre com a função" 

40 INPUT f$; PRINT,, "A função e:"; f$ 

50 PRINT,, "Entre com os valores mínimo e 
máximo para poder representar a f(x)" 

60 PRINT TAB 0; "xmin * INPUT xi: PRINT xi 
70 PRINT TAB 0; "xmax= INPUT xf: PRINT xf 

85 INPUT as: IF as<0 THEN SOUND 1,13: GOTO 80 
80 PRINT,, "Introduza o numero de assintotas" 

90 IF as = 0 THEN GOTO 165 
100 DIM a(as) 

110 PRINT,, "introduza os valores de x para cada assintota 
pela ordem" 

120 FOR 5=1 TO as 
130 INPUT a(j) 

140 NEXT j 

150 PRINT,, "Introduza a tolerância permitida para a(s) 
assintota(s), por exemplo 0.01" 

160 INPUT tol: IF tol<0 THEN SOUND 1,11: SOUND 1,12: SOUND 
1,13: GOTO 160 

165 PAPER 5: INK 1: BORDER 1 

170 PRINT AT 21,2'; FLASH 1; "Estou fazendo os cálculos!?:" 
180 DIM x(211): DIM y(211) 

190 LET i=l 

200 FOR x»xi TO xf STEP (xf-xi)/210 
210 IF as = 0 THEN GOTO 250 
220 FOR j-i TO as 

230 IF ABS(x-a(j))< tol THEN GOTO 280 

240 NEXT j 

250 LET x(i) - x 



260 LET y(i) = VAL f$ 

270 LET i-i+1. 

280 NEXT x 
290 LET n=i.-l 
300 LET yi = y(l) 

310 LET yf = y(l) 

320 FOR i=l TO n 

330 IF yi > y(i) THEN LET yi = y(i) 
340 IF yf <y(i) THEN LET yf ='y(i) 
350 NEXT i 

360 LET yi = yi * .99 
370 LET yf = yf * 1.01 
330 CLS 

390 PAPER 4: INK 1: BORDER 3 
400 LET x=35: LET y=ll 
410 DRAW INVERSE 1; OVER 1; x,y 
4-20 FOR k=l TO 4 
430 DRAW 0,41 
440 DRAW -3,0 
450 DRAW 3,0 
460 NEXT k : 

470 DRAW 0,-164 
430 DRAW -3,0 
490 DRAW 3,0 
500 DRAW 0,-3 
510 DRAW 0,3 
520 FOR k=l TO 4 
530 DRAW 55,0 
540 DRAW 0,-3. 

550 DRAW 0,3 
560 NEXT k 
570 DRAW -228,0 
580 LET a-4 
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590 FOR z=xi TO xf STEP (xf-xi)/4 
600 LET z$ = STR$ z 

6X0 IF LEN z$ >4 THEN LET z$ = z$(TO 4) 

620 IF a = 31 THEN LET a - 32 - LEN z$ 

630 PRINT AT 21,a; z$ 

640 LET a - a+6 + (a >9) 

650 NEXT z 
660 LET a - 20 

670 FOR t=yi TO 1.01 * yf STEP (yf-yí)/4 
680 LET z$ = STR$ t + " |~n w 
690 PRINT AT ,a,0; z$(TO 4) 

700 LET a - a-5 
710 NEXT t 
720 FOR i = 1 TO n 

730 LET x = 35 + 210 * (x(i)-xi)/(xf-xi) 

740 LET y = 12 + 163 * (y(i) - yi)/(yf-yi) 

750 PLOT x,y 
760 NEXT i 

770 INPUT "De a posição do título" 

780 IF £>0 OR l > 21 OR c < 0 OR c > 31 THEN SOUND 1,12: 

GOTO 720 
785 PAPER 5 

790 PRINT OVER 1; AT l ,c; f$ 

800 INPUT "Esta correto? (S/N)"; r$ 

810 IF r$="S" THEN SOUND 1,22: STOP 

820 IF r$ - "N" THEN PRINT OVER 1; AT í,,c; f$: GOTO 770 
830 IF r$ <> "S" THEN GOTO 800 




.67 




(Sapttala 17 
Espirais 


'ESPIRAIS" g um programa para tornar exponen 
ciai a sua habilidade, o seu talento artístico e o 
seu gênio criativo meu(minha) caro(a) amigo(a) pro- 
prietãrio(a) deste livro e do TK 90X. 

Não existe nenhum, limite para a variedade 
de curvas e espirais que podem ser desenhadas com 
este programa, salvo as impostas pela imaginação do 
(a) usuário(a)... 

0 programa ê tremendamente auto-instrutivo 
ou seja totalmente tutorial fornecendo-lhe todas as 
instruções necessárias para escolher e fazer com 
que o TK 90X desenhe cada uma das seis curvas exem 
pio. 

No decorrer da execução, o programa cria 
uma cadeia literal (STRING) f$, na qual as equações 
das curvas que se quer desenhar se armazenarão de 
forma permanente. 
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Em continuação sao lidos os 6 pares de equa 
çÕes (as que vão como exemplo dentro das instruções 
DATA) enviando-os para um armazenamento temporário 
em x$ e y$, 

0 programa se transfere para as equações 
que estão era x$ e y$, vai a subfotina de numero de 
linha 1500, desenha a curva escolhida e contínua fa 
zendo isto atê que o(a) usuirio(a) aperte alguma te 
cia quando então s-e volta ao "menu" de opções 



Tabela 1 


Ai vão alguns comentários sobre as curvas 


exemplo. 

Ê surpreendentemente difícil prever o tama 
nho de uma curva a partir das suas equações paramé¬ 
tricas. 

A circunferência e a curva fundamental ou 
seja serve de "origem" para todas as curvas fecha¬ 
das, elipses e espirais. 

As equações paramétricas de uma circunfe¬ 
rência de raio unitário sao: 

f X “ cos t 


Por outro lado,caso se queira uma circunfe 
rencia de raio, digamos 75 unidades,bas ta ter as 
equações 
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! x = 75 cos t 
y = 75 sen t 


A maior circunferência que você pode dese¬ 
nhar na tela do aparelho de T.V. conectado ao seu 
TK 90X ê de raio 87. 

Pode-se pensar em uma elipse como sendo 
"aproximadamente" uma circunferência de círculo que 
foi alongada ou achatada. 

A maior elipse que pode ser desenhada com 
centro no centro da tela (x = 127, y - 87) tem como 
equações paramétricas 


fx = 127 cost 
ly = 87 sent 

Para que se possa girar uma elipse de um 
certo angulo e necessário "mesclar" as funções tri¬ 
gonométricas seno e cosseno nas equações paramétri¬ 
cas, como por exemplo nas equações: 


tidos 

gura 


I x = 40 cos t + 25 sen t 
y — 40 sen t - 25 cos t 

Efeitos extremamente interessantes sao 
quando se "misturam" duas elipses (veja a 



oh - 
Fi- 


Figura 22 

É o caso, quando tivermos as equações para¬ 


métricas 


25 cos (12t) + 50 cos t 
15 sen(12t) + 30 sen t 


Figura 22 


Outros desenhos "fantásticos" podem ser ob 
tidos com as equações paramétricas 


'x = 70 cos(t/8) cos t 
y = 50 sen (t/8)sen t 


Figura 23 



x = 

,y ■ 


15 cos(10t) + 80 cost + 5cos(t/4) 
15 sen(10t) + 45 sen 

“ ‘-8 


•'VR*V, 


t + 5s en (t/4 )~ N \ 
Figura 24 


•sis/y ^ 

. ^ I ■ * 


/» v \ 


K;j. 


Bem 


Figura 24 

aí vai o programa "ESPIRAIS" 


5 CLS: PRINT TAB 10; "ESPIRAIS" 

10 GOSUB 2000 

20 BORDER 6: PAPER 6: INK 1 

30 LET fant=0:| LET cf = 0: LET lí = 1000 


40 DIM f$ (lí) 

50 DATA 6 

60 DATA "15*C0S(10*t) + S0*COS t + 5*COS(t/4)", "15*SIN(10*t) 
+ 45*SIN t + 5*SIN(t/4) " 

70 DATA "70*COS(t/8)*COS t", "50*SIN(t/3> * SIN t " 
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80 DATA "25*COS(l2*t) + 50 *COS t",. "15*SIN(!L2*t)+30*SINt" 

90 DATA "40*COS t + 25*SINt", "40*SIN t25*COS t" 

100 DATA "20*COS t + 20 * C0S(t/2) + 20 * COS (t/4)", 

"15*SIN t + 15 * SIN(t/2) + 15*SIN (t/4)” 

110 DATA "40*SIN t + 20*SIN(4*t) + 10*SIN (16*t) + 5*SIN(32*t)", 
"32*COS t + 8*COS(4*t)+ 4*C0S(16*t) + 2*COS(32*t>" 

120 READ nf 
130 FOR j*l TO nf 
140 READ x$, y$ 

150 IF LEN x$ >255 OR LEN y$ >255 THEN SOUND .2,15: SOUND 
.3,16: PRINT "A função na instrução DATA tem mais que 
255 caracteres": STOP 
160 LET cf = cf + LEN x$ + LEN y$ + 2 
170 IF cf > = 1000 THEN SOUND .2,12: SOUND .3,13: 

SOUND .4,24: PRINT,, "Não existe espaço suficiente para 
a função - aumente i f na linha 30": STOP 
180 LET f$(fant+1 TO cf) - CHR$ LEN x$ + x$fCHR$ LEN y$+y$ 

190 LET fant » cf 
200 NEXT j 

210 LET x$="" : LET y$= ,m 
220 LET n=28: CLS: PRINT TAB 10; "ESPIRAIS" 

230 PRINT ,,,, TAB 14; "MENU" 

240 PRINT,, "Introduzir uma função"; TAB n; "I" 

250 PRINT,, "Desenhar uma função"; TAB n; "D” 

260 PRINT,, "Armazenar uma função"; TAB n; "A" 

270 PRINT,, "Parar o programa"; TAB n; "P" 

230 INPUT r$ 

290 IF r$<> "I" OR r$ < > "D" OR r$ < > "A" OR r$ < > "P" 

THEN GOTO 240 

300 GOTO 300+30*(r$ ="I") + 130 * (r$ = "D") + 330*(r$=”A") + 
410 * (r$ = "P") 

310 INPUT "Pressione uma tecla para continuar"; z$ 

320 GOTO 220 


330 PRINT,, TAB 7; "Introduza a função" 

340 INPUT "Introduza a equaçao paramétrica x = f(t) para o 
eixo Ox"; x$ 

350 IF LEN x$ >255 THEN SOUND .2,23; SOUND .3,24: PRINT,, 

"A equação deve ter menos do que 255 caracteres. 

Entre com outra~": GOTO 340 
360 PRINT ,,,, "A equação e:",, x$ 

370 INPUT "Introduza a equação paramétrica y = f(t) para o 
eixo Oy"; y$ 

380 IF LEN y$ >255 THEN SOUND .1,23; SOUND .2,24 : 

PRINT,, "A equação deve ter menos do que 255 caracteres. 
Entre com outra.": GOTO 370 
400 PRINT,,,, "A equação e:",, y$ 

410 GOSUB 1500 
420 GOTO 310 

430 PRINT,, "Ai vai se desenhar uma das funções jã existen- 
' tes no programa" 

440 LET f = 0: LET p - 1 
450 GOSUB 1800 

460 IF s > = cf THEN GOTO 520 
470 PRINT,, p; TAB 6; f$(s TO f); TAB 6; 

480 GOSUB 1800 
490 PRINT f$(s TO f) 

500 LET p = p+1 
510 GOTO 450 

520 INPUT "Entre com o numero da função n^q 
530 IF q >p OR q<0 THEN SOUND .2,23: SOUND .3,24: GOTO 520 
540 LET f a 0: LET p-1 
550 GOSUB 1800 

560 IF p=q THEN LET x$ = f$ (s TO f) 

570 GOSUB 1800 

580 IF p<>q THEN LET p = p+1: GOTO 550 
590 LET y$ = f$ <s TO f) 

600 GOSUB 1500 
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610 LET x$ « LET y$= "" 

620 GOTO 310 

630 PRINT,,; TAB 8; "Armazenar uma função" 

640 IF LEN x$ = 0 OR LEN y$ = 0 THEN SOUND .2,23: SOUND .3,23 
: PRINT,, "A função não esta definida": GOTO 310 
650 LET cf — cf + LEN x$ + LEN y$ + 2 
660 IF cf > = 1000 THEN SOUND .3,23: SOUND ,2,24: PRINT, 

"Não existe espaço suficiente para guardar a função": 

LET cf = cf - LEN x$ - LEN y$ -2: GOTO 310 
670 LET f$ (fant + 1 TO cf) * .CHR$ LEN x$ + x$ + CHR$ 

LEN • y$ .+ y$ 

680 LET fant = cf 

690 PRINT,-, "A função ja esta armazenada" 

700 GOTO 310 

710 PRINT "Como voce jâ cansou..." 

720 FOR k=l TO 18 
730 SOUND k/10, k+3 
740 NEXT k 

750 FOR k=18 TO 1 STEP -1 
760 SOUND k/10,-(k+3) 

770 NEXT k 

780 PRINT "Vamos parar este programa, viu?!?!" 

790 STOP 

1500 CLS: PRINT TAB 9; "ESPIRAIS” 

1510 PRINT,, x$: PRINT y$ 

1520 LET t=0: LET cx = 127: LET cy = 70 
1530 LET rx = VAL x$ : LET ry - VAL y$ 

1540 PLOT cx + rx, cy + ry 
1550 LET t = t+ .025 

1560 IF INKEY$ <>"" THEN GOTO 1580 ■ " - 

1570 GOTO 1530 
1580 RETURN 
1800 LET s = f+2 

1810 LET f - s + CODE f$ (s-1) - 1 
1820 RETURN 
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2000 PRINT ,,,,,,,,,, 

2010 PRINT "Este programa permite representar na tela 

funções que foram introduzidas de forma independente 
para as coordenadas x e y " 

2020 PRINT "Ambas as equações devem ser expressas como 
função de t" 

2030 PRINT ,,,,,, "Neste programa tem-se a possibilidade de 
desenhar 6 gráficos diferentes" 

2040 PRINT ,,,j FLASH 1; "Aperte qualquer tecla para 
começar" 

2050 IF INKEY$ * "" THEN GOTO 2050 

2060 RETURN. 

O.I. - Se ,as coisas estiverem ficando "pretas" quan 
to ao entendimento de algumas linhas ou quem 
sabe de todo o programa não esqueça que um 
meio para não ficar "boiando" e ter também 
o meu livro "BASIC no TK 90X". Ele o auxilia 
ra muito para não ficar nas trevas... 




(EajJtlulo 10 

flíerspcctiiía cínica 


Este programa permite ver de qualquer angu 
lo um solido escolhido por voce entre os que com¬ 
põem o "menu": cubo, prisma hexagonal, pirâmide ou 
octaedro. 

Utilizando as teclas do cursor pode-se fa¬ 
zer o solido ir para a esquerda(tec la "5") para a di¬ 
reita (tecla "8"), aproximar o solido (tecla "7") 
afastar o solido (tecla "6"), subir o solido (tecla 
"s") ou abaixar o solido (tecla "b"). 

A tecla "m" permite voltar ao menu. 

AÍ esta o "programao" 

1 REM .** Perspectiva cônica ** 

2 BORDER 7 

5 LET px - 0: LET py » 0: LET ang * PI: LET r - 200: 

LET c - 80: LET d = 50 
10 PAPER 7: INK 0: BRIGHT 0 
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15 CLS 

20 PRINT AT 3,6; "** PERSPECTIVA CÔNICA**" 

25 PRINT AT 4,4; "Escolha um corpo da lista" 

30 PRINT AT 5;5; "Tecle um dos numeros:" 

32 PRINT AT 7,3; "1 - CUBO" 

34 PRINT AT 8,8; "2 - PIRÂMIDE" 

36 PRINT AT 9,8; "3 - PRISMA" 

38 PRINT AT 10,8; "4 - OCTAEDRO" 

39 PRINT AT 12,6; ”*Durante o programa:"; AT 14,10; "7 - 

aproximaçao"; AT 15,10; "6=afastamento ; AT 16,10; 5— 

esquerda"; AT 17,10; "S^direita"; AT 18,10; "s=subir"; 
AT 19,10; "b=abaixar"; AT 20,10;"m=voltar ao menu" 

40 IF INKEY$ = "1" THEN PRINT AT 2,6; "□ ESPEREPRINT 
AT 7,7; " >": GOTO 100 

50 IF INKEY$ = "2" THEN PRINT AT 2,6; "DESPERE□"; PRINT 
AT 8,7; " >": GOTO 250 

60.IF INKEY$ ="3” THEN PRINT AT 2,6; "DESPEREO"; PRINT 
AT 9,7; " >”; GOTO 400 

70 IF INKEY$ = "4" THEN PRINT AT 2,6; "□ ESPERE PRINT 
AT 10,7; " >"; GOTO 550 
90 GOTO 40 

100 RESTORE 125: LET pt = 10:. LET Hn = 190 
110 DIM x(pt): FOR t-1 TO pt:115 REÁD x(t) 

120 NEXT t 

125 DATA -50,-50,50,50,-50,-50,50,50,0,0 
130 DIM y(pt): FOR t=l TO pt 
135 READ y(t) 

140 NEXT t 

145 DATA -50,50,50,-50,-50,50,50,-50,150,150 
150 DIM z(pt): FOR t=l TO pt 
155 READ z(t) 

160 NEXT t 

165 DATA 0,0,0,0,100,100,100,100.0* 125 
170 PAPER 0: INK 7: BRIGHT 1 
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180 GOTO 1000 
190 CLS 

195 PLOT 0,c: DRAW INK 5; BRIGHT 0;255,0 
200 RESTORE 225: FOR t=l TO 13 
210 READ v,w 

215 PLOT 128+m(v), n(v): DRAW m(w)-m(v),n(w)-n(v) 

220 NEXT t 

225 AT A 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7, 
8,9,10 

230 CIRCLE 123+m(10),n(10)+(n(10)-n'(9))/l0, 

(n(10)-n(9))/10 
240 GOTO'1100 

250 RESTORE 270: LET pt = 9: LET lín=320: LET ang=2. 
7488936 

255 DIM x(pt): FOR t=l TO pt 

260 READ x(t) 

265 NEXT t 

270 DATA -50,-50,50,50,0,0,0,0,0 
275 DIM y(pt): FOR t=l TO pt 

280 READ y(t) 

285 NEXT t 

290 DATA -50,50,50,-50,0,150,150,170,150 
295 DIM z(pt): FOR t=l TO pt 
300 READ z(t) 

305 NEXT t 

310 DATA 0,0,0,0,100,0,50,40,30 
313 PAPER 0: INK 7: BRIGHT 1 
315 GOTO 1000 
320 CLS 

325 PLOT 0,c: DRAW INK 5; BRIGHT 0; 255,0 
330 RESTORE 370: FOR t-1 TO 11 
340 READ v,w 

350 PLOT 128+m(v),n(v): DRAW m(w)-ro(v),n(w)-n(v) 

360 NEXT t 
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370 DATA 1,2,2,3,3,4,4,1,1,5,2,5,3,5,4,5,6,7,7,3,3,9 
380 GOTO 1100 

400 RESTORE 420: LET pt = 12: 'LET lin=475: LET ang=Pl/2i: 

LET 0=100 

405 DIM x(pt): FOR t=l TO pt 
410 READ x(t) 

415 NEXT t 

420 DATA -100,-100,-100,-100,-100,-100,100>100,100>100>100>100 
425 DIM y(pt):-FOR t=l TO pt 
430 READ y(t) 

435 NEXT t 

440 DATA 25,50,25,-25,-50,-25,25,50,25,-25,-50,-25 
445 DIM z(pt): FOR t=l TO pt 
450 READ z(t) 

455 NEXT t 

460 DATA 0,43.3,86.6,86,6,43.3,0,0,43.3,86.6,86.6,43.3,0 
465 PAPER 0: INK 7: BRIGHT 1 
470 GOTO 1000 
475 CLS 

480 PLOT 0,c: DRAW INK 5; BRIGHT 0;255,0 
485 RESTORE 505: FOR t-1.TO 18 
490 READ v,w 

495 PLOT 128+m(v),n(v): DRAW m(w)-m(v),n(w)-n(v) 

500 NEXT t 

505 DATA 1,2,2,3,3,4,4,5,5,6,6,1,7,8,8,9,9,10,10,11,11,12,12, 
7,1,7,2,8,3,9,4,10,5,11,6,12 
510 GOTO 1100 

550 RESTORE 570: LET pt = 10: I>ET lin=625: LET c = 100 

555 DIM x(pt): FOR t=l TO pt 

560 READ x(t) A 

AU 

565 NEXT t * " 

570 DATA -50,-50,50,50,0,0,-15,0,15,0 
575 DIM y(pt): FOR t=l TO pt 
580 READ y(t) 
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585 NEXT t 

590 DATA -50,50,50,-50,0,0,125,150,125,133,66 
595 DIM 2(pt): FOR t=l TO pt 
600 READ z(t) 

605 NEXT t 

610 DATA 75,75,75,75,150,0,0,0,0,75 
615 PAPER 0: INK 7: BRIGHT 1 
620 GOTO 1000 
625 CLS 

630 PLOT 0,c: DRAW INK 5: BRIGHT 0;255,0 
635 RESTORE 655: FOR t=l TO 18 
640 READ v,w 
645 PLOT, 128+m(v),n(v): DRAW m(w)m(v),n(w)-n(v) 

650 NEXT t 

655 DATA 1,2,2,3,3,4,4,1,1,5,2,5,3,5,4,5,1,6,2,6,3,6,4,6,7, 
8,8,9,9,7,7,10,8,10,9,10 
660 GOTO 1100 

1000 LET a=r*COS ang: LET b=r*SIN ang: DIM m(pt): FOR t=l 
TO pt 

1005 IF a=px THEN LET ra(t)=d*((x(t)-a)/(y(t)-b)): GOTO 1030 
1007 IF a=x(t) AND x(t) <>px THEN LET r=r+20: GOTO 1000 
1010 LÉT m(t)=d*TAN (ATN ((py-b)/(px-a))-ATN 
((y(t)-b)/(x(t)-a))) 

1020 IF 128+m(t) >255 OR 123+m(t)<0 THEN PRINT AT 1,5; 

"DEMASIADO PRÓXIMO": GOTO 1100 
1030 NEXT t 

1050 DIM n(pt): FOR t=l TO pt 

1060 LET n(t)=z(t)+((c-z(t))/SQR ((a-x(t))*(a-x(t)) + 
(b-y(t))*(b-y(t))))*(SQR ((a-x(t))*(a-x(t))+ 
(b-y(t))*(b-y(t)))-SQR (m(t)*ro(t)+d f2>) 

1070 IF n(t) >175 OR n(t)<0 THEN PRINT AT 1,5; 

"DEMASIADO PRCXIMO": GOTO 1100 
1080 NEXT t 
1090 GOTO lin 

1100 IF INKEY$ = "8" THEN LET ang - ang+Pl/16: GOTO 1000 



1110 IF INKEI$ ="5" THEN LET ang = ang-Pl/16: GOTO 1000 

1120 IF INKEY$ ="6" THEN LET r=r+20:GOTO 1000 

.1130 IF INKEY$ -"7" THEN LET r=r-20:GOTO 1000 

1140 IF INKEYÍ ="s" AND c+20 < = 175 THEN LET c=c+20:GOTO 1000 

1150 IF INKEY$="b" AND c-20 >= 0 THEN LET c=c-20: GOTO 1000 
1160 IF INKEY$ ="m" THEN PAPER 7: INK 0: BRIGHT 0: GOTO 5 
1170 GOTO 1100 

Execute (RUN) o programa e a sua "primeira" 
tela sera do seguinte tipo 


**PERSPECTIVA CÔNICA** 

Escolha um corpo da lista 
Tecle um dos numeros: 

1 - CUBO 

2 - PIRÂMIDE 

3 - PRISMA 

4 - OCTAEDRO 


*Durante o programa: 



7 - aproximaçao 
6 - afastamento 
5 t esquerda 

8 - direita 
s - subir 

b = abaixar 
m - voltar ao menu 


J 

Figura 25 


No decorrer do uso do programa "PERSPECTIVA 
CÔNICA" podem surgir as seguintes situações na tela, 
(Figuras 26 a,b,c,d,e,f) onde se pode perceber fa¬ 
cilmente a aproximaçao e o afastamento. 





(lapítulü 10 

üínta apitcaçafl para a 
üiíirSntra cíir ttmiff 
a uma tosirafâu-itpu foslreza 
no circuita 

AÍ vai um outro "programão" porem agora 
voltado para a Eletrônical 

Neste caso específico vai se calcular a 
"etapa" amplificadora de um emissor comum. 

Para esta finalidade devem ser introduzi¬ 
dos três dados: em primeiro lugar a tensão com a 
qual se deseja alimentar o circuito, em seguida a 
relação entre a tensão de entrada e de saída e fi¬ 
nalmente a corrente do coletor do transistor, a qual 
depende do tipo de transistor que vai ser utilizado 
sendo que valores normais para a intensidade da cor 
rente são em miliamperes (mA) ou em frações de am¬ 
pere (A) . 

0 programa êcomposto de quatro etapas bãsi 

cas: 

1) calculo das componentes 

2) geração do símbolo de resistência elé¬ 
trica ou seja do ohm (Q) 
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3) exibição da tabela das resistências co- 
mumente encontradas no comercio 

4) exibição do esquema do circuito 


Espero realmente que este programa seja 
um util modelo para que os professores de Eletroni 
ca possam elaborar outros esquemas semelhantes que 
permitam principalmente aos seus alunos um aprendi¬ 
zado individual tendo como professor o TK 90X. 

10 REM ** Etapa amplificadora** 

15 CLS: GOSUB 500: GOSUB 600 
20 REM ** Calculo de componentes ** 

30 INPUT "Tensão Vcc(V) =□"; a 
40 INPUT "Relação de amplificação Av = O 
45 CLS: PRINT "Vcc =";á; "V","Av="; b 
50 INPUT "Corrente do coletor Ic(A) =□"; c 
55 PRINT "Ic="; c; "A" 

60 PRINT "Re >"; .7/c; "□•faça-a escolha segundo a tabela" 



65 GOSUB 190 ___ I Bater A em 

70 INPUT "Re(Ã) ="; d: CLS " “ —- grafico 

80 LET e=d*b: LET f=(.7-Kd*c)^—■-- 

85 PRINT "Rc=";d*b; "DA", "Re=";d;"DA" \ 

90 PRINT "Rl="; INT(e*a/f );’’□£V ,R2= ”i <e/(l-(f/a))); "DA" 
110 PRINT "C1=C2=470 micro F/l6V">"Ce="; INT(1.59/(20*d)* 


1000000); "microF" 

120 PRINT "Pot.Trl="; (a-(d*b+d)*c)*c*1000;"mW" 

122 PRINT AT 19,0; ,, V C c- ,, ;a; ,, V"; AT 19,15;"Ic«";c;"A" 


125 GOSUB 600 

130 PRINT AT 21,0; "Quer novo calculo (S/N)?": 

IF INKEY$="" THEN GOTO 130 
140 IF INKEY$="S" OR INKEY$="s" THEN RUN 


150 STOP 
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185 REM **Aí vai a tabela das resistências encontradas no 
comercio** 

190 RESTORE 240 
195 PRINT AT 4,2; "íT; AT 4,5; 'W; AT 4,9; AT 4,12; 

"Kfl"; AT 4,16; ’W; AT 4,19; "Kft"; AT 4,23; "Mfi"; AT 
4,27; 'W 

200 FOR Z = 6 TO 17: READ g 

210 PRINT AT M;g;AT Z, 5;g*10.; AT £,8;g*100; AT £,12;g; 

AT Z, 16;g*10; AT Jl,l9;g*100; AT Í,23;g 
220 IF %< = 10 THEN PRINT AT £,27;g*10 
230 NEXT Z 

240 DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2 

250 RE TU RN 

500 REM *Grâfico fí* 

505 RESTORE 510: FOR k=0 TO 7: READ j: POKE USR "A"+k,j: 
NEXT k 

510 DATA 24,36,66,129,129,66,36,231 
520 RETURN 

600 REN **AÍ vai o desenho do circuito** 

605 RESTORE 640: PRINT "Cálculos para o circuito" 

610 FOR k=l TO 49: READ p,q,w,z 
620 PLOT p,q: DRAW w,z 
630 NEXT k 

640 DATA 74,74,0,7,74,81,9,0,83,34,0,-8,37,34,0,-8,37,31,27, 
0,114,85,0,-8,100,81,3,0,97,39,6,0,103,39,0,8,103,97,-6, 
0,97,97,0,-8 

650 DATA 100,105,0,-3,100,105,55,0,100,89,0,-8,126,105,0,-8, 
123,97,6,0,129,97,0,-8,129,39,-6,0,123,89,0,3,126,89,0, 

-5 

660 DATA 126,34,-4,0,122,34,-6,-3,74,66,0,-7,74,59,79,0,100, 
59,0,7,97,66,6,0,103,66,0,3,103,74,-6,0,97,74,0,-8,100, 
74,0,7 
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670 DATA 126,59,0,6,123,66,6,0,129,66,0,8,129,74,-6,0,123, 
74,0,-8,126,74,0,5,126,79,-5,0,121,79,-6,3 
680 126,84,10,0,136,87,0,-6,139,87,0,-6,139,84,7,0,146,84, 
0,-7,146,59,0,7 

690 DATA 126,79,10,0,136,79,0,-7,133,72,6,0,133,69,6,0,136, 
69,0,-10 

700 CIRCLE 115,82,7 

710 PRINT AT 13,5; ”ENT."; AT 10,9: "Cl"; AT 7,12; "Rl"; 

AT 13,10; "R2"; AT 13,13; "Re"; AT 13,19; "SAI." 

720 PRINT AT 15,16; "Ce"; AT 7,15; "Rc"; AT 10,17; "C2"; 

AT 8,20; "+V"; AT 14,20;"-V" 

730 RETURN 


Ao executar (RUN) este programa voce deve 


ver. a seguinte 


a) 




sequencia: 



xc—a.B* Faça a escolha segundo a tabela 

R* > 1. 4. 


1 10 
1.2 12 
i . e is 
1 . 8 ie 
2.2 22 
2.7 27 

3.3 33 

3.0 3® 

4 . . 7 4.7 

5 . 3 56 


1.8 13 

2.2 22 
2.7 27 

3.3 33 

3 . ® 3 ® 

<1 . 7 A? 

3 . C- 8 8 

8 . 8 38 

© . 2 82 


Kii MO MO 

lOO 1 13 

123 1.2 12 

183 1.3 18 

183 1.3 1© 

223 2 . 5,22 
270 2.7 

3 33 3 . ■> 


Figura 27 




Figura 27c 


Se por acaso de circuito eletrónico o seu 
conhecimento e nulo e o interesse pelo assunto ha 
pouco apresentado foi nenhum quero remedia-lo(a) 
com uma distraçao. 

Ai vai o jogo o "CARRO MALUCO”... 


Neste jogo você deve dirigir um carro que 
"trafega" a toda velocidade num dos circuitos apre¬ 
sentados nas Figura 28 a,b ou c porem com o deta 
lhe de estar sem freios. 

Para conduzir o carro voce pode utilizar 
as teclas ”p" e "0". A tecla "P" faz o carro se mo¬ 
vimentar no sentido horário e com a tecla "0" se 
desloca o carro no sentido anti-horãrio. 


89 



Figura 28 
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Como jã disse o jogo consta de três circui 
tos sobre os quais voce deve permanecer durante 20 
segundos ainda que o seu TK 90X represente este tem 
po como sendo 1 minuto. 

No início do jogo o TK 90X lhe pedira o seu 
nível de destreza (ou de competência) o qual pode 
variar de 1 até 9. 

Tenha muito cuidado com as derrapagens pois 
quanto mais alto for o nível escolhido por você 
maior sera a possibilidade que o seu carro derrape. 

Bem aí vai o "programao" e esteja aten¬ 
to ( a ) ... . 

5 REM ** CARRO MALUCO ** 

10 GOSUB S000 

20 REM**':Rotina principal ¥¥ 

30 FOR c.=l TO 3 
40 GOSUB 8500 

50 BRIGHT 0: FLASH 0: BORDER 4: PAPER 4: INK 0: CLS 
60 GOSUB c*l000 
70 DIM a(4) 

80 LET ang=l 
90 LET q=l: LET w=l 
100 FOR t=l TO 180: REM *' TEMPO * 

110 PRINT AT q,w;CHR$ (143+ang) 

120 IF INKEY$="o" 0R INKEY$="0" THEN LET ang=ang-l: IF 
ang*0 THEN LET ang-4 

130 IF INKEY$="p" OR INKEY$="P" THEN LET ang=ang+l: IF 
ang=5 THEN LET ang=l 
140 LET a(ang) _ niv 
150 LET o=*q: LET p*w 

160 IF a(l) >0 THEN LET p=p+l: LET a(l)=a(l)-l: IF 
a(l)< niv-1 THEN SOUND .018,24: SOUND .018,23 



170 IF a (2) >0 THEN LET o=o+l: LET a(2)=a(2)-l: 

IF a(2)< niv-1 THEN SOUND .018,24: SOUND .018,23 
180 IF a(3) >0 THEN LET p«p-l: LET a(3)=a(3)-l: 

IF a(3)< niv-1 THEN SOUND .018,24: SOUND .018,23 
190 IF a(4) >0 THEN LET'o=o-l: LET a(4)-a(4)-l: 


200 

210 

220 

230 

240 

245 

250 

260 

270 

280 

290 

310 

nar 

vez 

eza 


IF a(4)< niv-1 THEN SOUND .018,24: SOUND .018,23 
PRINT AT q,w; 

IF ATTR (o,p)=39 THEN GOTO 7.000 
LET q=o: LET w-p 


NEXT t 
NEXT c 

REM ** FlNAL FELIZ ** 

LET c$=" IIIIIIIIIIMHIIIIIIIININIIIII" 

FOR m-1 TO 21: LET c$=c$+c$ (1 TO 32): NEXT m 


FOR m=7 TO 0 STEP -1 
PRINT AT 0,0; INK m; OVER 1; 
SOUND .5,m*3: NEXT m 
LET z$="Parabens 

Voce conseguiu domi 
o carro. Queres tentar outra 
(S/N)? 0 seu nível de destr 
passa a ser 1 unidade maior. 

PR 



EP ARA-TE M" 


320 BORDER 0: PAPER 1: CLS: INK 6: BRIGHT 1 
330 PRINT AT 0,0; 

350 FOR m=l TO 220 

360 PRINT z$(m); FLASH 1; U _";CHR$ 8; 

365 SOUND .05,24: SOUND .06,23 
370 NEXT m 

380 IF INKEY$="" THEN GOTO 380 
390 IF INKEY$="S" OR INKEY$="s"' THEN GOTO 420 
400 IF INKEY$="n" OR INKEY$=”N M THEN GOTO 9900 
410 GOTO 310 
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420 FOR m=221 TO LEN z$ 

430 PRINT z$(m); FLASH 1; 

440 SOUND .05,20: SOUND .06,21 
450 NEXT m 
460 LET niv=niv+l 
470 SOUND 1,10: SOUND 1,12 
480 GOTO 30 

1000 REM ** CIRCUITO 1 ** 

1010 PRINT AT 0,0; INK 7; "OOOOOOOOOOOOOOOGOOOOOOOOOOOOOOOO" 
1020 PRINT AT 21,0; INK 7;"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 
1030 FOR a-0 TO 21 

1040 PRINT AT a,0; INK 7; "0"; AT a,31; INK 7;"0" 

1050 NEXT a 

1060 PRINT AT 6,6; INK 7; "OOOOOOOOOOOOOOOOOOOO" 

1070 PRINT AT 15,6;INK 7;'"OOOOOOOOOOOOOOOOOOOO" 

1080 FOR a=6 TO 15 

1090 PRINT AT a,6; INK 7; "0"; AT a,25; INK 7,"0" 

1100 NEXT a 
1110 RETURN 

2000 REM ** CIRCUITO 2 ** 

2005 PRINT AT 0,0; INK 7; ”00000000000000000000000000000000” 
AT 21,0; "00000000000000000000000000000000" 

2010 PRINT AT 1,0; INK 7; "0"; AT 1,28; "0000000"; 

AT 2,29; "00000"; AT 3,30; "00"; AT 18,0; "00"; 

AT 18,30; "00000"; AT 19,29; "0000000"; 

AT 20,28; "0000" 

2020 FOR ra=4 TO 17 

2030 PRINT AT tn,0; INK 7; "0"; AT m,31; "0" 

2040 IF m > 4 AND m< 10 OR m > 12 AND m<17 THEN PRINT 
AT m,5; INK 7; ”0"; AT m,13; "0"; AT m,l8; "0"; 

AT m,26;"0” 

2050 NEXT m 


2060 PRINT AT 4,6; INK 7; "00000000”; AT 4,18; "00000000"; 

AT 5,6; "000"; AT 5,23; "000"; AT 6,6; "00"; AT 6,24; 
"00"; AT 7,6; "0"; AT 7,25; ”0"; AT 9,5; "000000000"; 

AT 9,18; "000000000" , 

2070 PRINT AT 13,5; INK 7; "000000000”; AT 13,18; 

"000000000"; AT 15,6; "0"; AT 15,25; "0";. AT 16,6; 

"00"; AT 16,24; "00"; AT 17,6; "00000000"; AT 17,18; 
"00000000”; AT 18,1; "0"; AT 13,30; "00000"; 

AT 19,29; "0000000"; AT 20,28; "0000" 

2080 RETURN 

3000 REM ** CIRCUITO 3 ** 

3005 PRINT AT 0,0; INK 7; "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" 
AT 20,28; "000000000000000000000000000000000000" 

3010 FOR m-1 TO 20 

3020 PRINT AT m,0; INK 7; "0"} AT m,31; "0" 

3030. NEXT m 

3040 PRINT INK 7; AT 1,12; "00000000"; AT 1,28; "0000000"; 

AT 2,13; "OOÓOOO"; AT 2,29; "00000";'AT 3,14; ."0000"; 

AT 3,30; "00"; AT 4,15; "00"; AT 5,6; "000"; AT 5,15; 
"00"; AT 5,23; "000"; AT 6,5; "00000"; AT 6,22; 

"00000"; AT 7,5; "00□□00"; AT 7,21; "OOODOO"; 

AT 8,5; "OODDOO"; AT 8,20; "OODDDOO"; AT 9,5; 
"OOODDDOO"; AT 9,19; "OODODDOO"; AT 10,5; "OODODDOO" 
AT 10,19; "00□□□□00" 

3050 PRINT INK 7; AT 11,5; "OOODDÜOO"; AT 11,19; "OODDDGOO" 
AT 12,5; "OOOODOOO"; AT 12,19; "OOODDDOO"; AT 13,5; 
"00 00000"; AT 13,20; "00□0000"; AT 14,5; "OODGOO"; 

AT 14,21; "00 mOO"; AT 15,5; ”00000"; AT 15,22; 
"OOOOO"; AT 16,6; "000"; AT 16,15; "00"; AT 16,23; 
"000"; AT 17,15; "00"; AT 18.,1; ”0"; AT 18,14; "0000"; 
AT 18,30; "OOOOO"; AT 19,13; "OOOOOO"; AT 19,29; 
"0000000"; AT 20,12; "00000000" 

3060 RETURN 
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7000 REM ** DESFECHO FATAL ** 

7005 PRINT AT o,p; PAPER 7; INK 1; CHR$ (ang+143): 

SOUND .5,-10 

7010 PRINT AT 21,0; INK 7; PAPER 0; "Circuito";c,"Tempo"; 
INT(t/3) 

7020 PRINT # 1 ; "Outra (S/N)?" 

7030 IF INKEY$="n" OR INKEY$="N" THEN GOTO 9000 
7040 IF INKEY$="s" OR INKEY$="S" THEN RUN 
7050 GOTO 7030 
8000 REM ** APRESENTAÇÃO ** 

8005 RESTÒRE 8000 : FOR a=l TO 4 
8010 READ a$ 

8020 FOR j=0 TO 7 
8030 READ c: POKE USR a$+j,c 
8040 NEXT j 
8050 NEXT a 

8060 DATA "a",224,230,255,231,231,255,230,224,"b",255,255, 
255,36,36,126,126,60,"c",7,103,255,231,231,255,103,7, 
"d",60,126,126,36,36,255,255,255 
8070 PAPER 2: BORDER 2: INK 7: CLS 
8080 FOR a=0 TO 21 STEP 2 

8090 PRINT AT a,0; PAPER 6; INK 3; FLASH 1; "carro maluco" 
8100 NEXT a 

8110 FOR a=l TO 21 STEP 2 

8120 PRINT AT a,0; PAPER 3; INK 6; FLASH 1; "carro maluco" 
8130 NEXT a 

8140 PRINT AT 0,15; FLASH 1; "Cuidado..." 

8150 PRINT AT 2,15; "O seu veloz carro"; AT 3,15; "está sem 
freios"; AT 4,15; "no circuito."; AT 10,15; "P=horario"; 
AT 12,15; "0”=ant i-horário" 

3160 PRINT # 1; "Escolha o nível (1-9)" 

8170 LET m$=INKEY$ 

8130 IF CODE m$ >48 AND CODE M$ <58 THEN GOTO 8200 
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8190 GOTO 8170 
8200 LET niv=VAL M$ 

8210 RETURN 

8500 REM ** NÜMERO DE CIRCUITO ** 

8505 PAPER 0: BORDER 4: CLS- * 

8510 LET b$=" ^ 

circuito + 

STR$ c+” " 

8520 FOR a=l TO 51 

8530 IF A+31>= 52 THEN PRINT AT 11,0; PAPER 1; INK 6; 

B$(A TO 51) : GOTO 8550 

8540 PRINT AT 11,0; PAPER 1; INK 6; b$Ça TO A+31) 

8550 SOUND ,05,a/2 
8560 NEXT a 
8570 RETURN 

9000 REM ***** FIM *** 

9005 BRIGHT 0; OVER.0: FLASH 0;- INYERSE 0: PAPER 7; INK 0; 
BORDER 7 : SOUND 1,0: CLS 


Ao executar o programa deve surgir a se 
guinte apresentação na tela: 


maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 

maluco 


Cuidado... 

O seu velos carro 
esta sem freios 
no circuito 


P = horário 


0 = anti-horario 


Figura 29 
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g>tmulai> 0 r 1 ógtrn 

ttlirn òe um super 
jugo 


Chegamos ao ultimo capítulo e nele apresen 
to dois interessantíssimos programas (acho que não 
é pretensão da minha parte...). 

No primeiro programa você terã a oportuni¬ 
dade de "refinar" os seus conhecimentos de Eletrêni 
ca (uai outra vez?!?!) naquilo que os (as) "entendi¬ 
dos"(" as") chamara de portas lógicas. 

Acho que o tema ê bastante didático sem 
deixar de ser divertido,visto ser este um ponto que 
não quero esquecer nunca... 

0 programa "SIMULADOR LÕGICO" ilustra ofun 
cionaraento das portas lógicas usuais nas quais 
alias se inspira' toda a tecnologia atual, inclusive 
do seu maravilhoso TK 90X. 

Você jã estã mais interessado(a), não e? 

E e precisamente cora o auxílio do TK 90X 
que você estimado(a) 1 eitor (1eitora) aprendera como 

'■f 


se comportam estas portas diante da informação de 
"zeros” e "uns" (ou seja sem tensão ou com tensão) 
que se aplicam as entradas. Dependendo dos valores 
destes e do tipo da porta obter-se-a um determina¬ 
do valor de saida. 

No programa aparecera o esquema elétrico 
equivalente i função lógica em forma de interrupto¬ 
res, resistências e lampadas, incluindo-se o símbo¬ 
lo eletrônico que representa a porta.com os valores 
nas suas entradas e na saida. 

Em cada esquema se representam as entradas 
com interruptores indicando-se com "0" quando estão 
abertas e com "1" quando estão fechadas. 

Os sinais "+" e representam os polos 

de uma pilha e as resistências são representadas 
por retângulos. 

0 TK 90X lhe ped irã que introduza os valo¬ 
res que você quer ter nas entradas è depois lhe exi 
bira o valor na saída. 

AÍ esta o programa "SIMULADOR LÕGICO" 

10 REM *** SIMULADOR LÕGICO *** 

20 INK 0: BORDER 7: PAPER 7 

30 OVER 0: BRIGHT 0: FLASH 0: CLS 

40 REM GRÁFICOS DEFINIDOS 

50 LET z=99: LET x=192: LET y=255 

60 LET q=0: LET v=28: LET w=8 

70 DATA y,y,x,x,x,y,y,q,y,y,q,q,q,y,y,q 

80 DATA y,y,3,3,3,y,y,q,127,127,z,z,z,z,z,z 

90 DATA z,z,z,z,z,z,z,z,z,z,z,z,z,z,127,127 

100 DATA 24,126,126,y,y,126,126,24,v,v,l,2,4,w,v,v 

110 DATA 4,w,211,227,195,q,q,q,v,v,w,w,w,w,v,v 
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120 DATA q,q,195,y,195,q,q,q 

130 FOR n-USR "a" TO USR "a"+87: READ a: POKE n,a: NEXT n 
140 REM menu principal 

150 PRINT AT 1,3; "SIMULADOR LÕGICO" _ 

160 PLOT 63,158: DRAW 129,0 f > 

170 PLOT 63,156: DRAW 129,0 ( 

180 PLOT 15,144: DRAW 225,0 

190 DRAW .0,-128: DRAW -225-,0: DRAW 0,128 

200 PLOT 13,146: DRAW 229,0 . 

210 DRAW 0,-132: DRAW -229,0: DRAW. 0,132 

220 PRINT AT 5,10; "escolha a opção" 

230 PLOT 79,126: DRAW 96,0 

240 LET a$="D= porta t ipoD " _ 

250 PRINT AT 7,4; "A "+a$ +^INVERSOR" 

260 PRINT AT 9,4; "B' 1T +ã?+^D^_._j A B C D E F- 


Zby PKINT AT y,4; B A,B,C,D,E,F- 

270 PRINT AT 11,4; "C "+a$V|pBÍL----- |em modo grafico 

280 PRINT AT 13,4; "D^I^NANDl ^-—^ ^ 

290 PRINT AT 15,4;"E "+a$+^NOR^- 

300 PRINT AT 17,4; "F'^ T +lfao 13) * "OR EXCLUSIVO" 

310 PAUSE 0 
320 GOSUB 2210 

330 REM *** Escolha das portas 
340 LET a=PEEK 23560 

350 IF a=65 OR a» 97 THEN GOTO 0440 

360 IF a=66 OR a=93 THEN GOTO 0660 

370 IF a=67 OR a=99 THEN GOTO 0950 

380 IF a*68 OR a*100 THEN GOTO 1260 

390 IF a=>69 OR a*101 THEN GOTO 1560 

400 IF a=70 OR a-102 THEN GOTO 1870 

410 PRINT AT 11,3; "□ Pressione A,B,C,D,K,F": SOUND 3,13 
415 SOUND 4,14: SOUND 4,15 
420 PRINT AT 11,4; a$(TO 23) 

430 GOTO 220 
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440 REM ** INVERSOR *** 

460 REM *** Aqui desenha-se o esquema ** 

480 PRINT AT 18,6; "PORTA TIPO INVERSOR": GOSUB 2180 
490 PRINT AT 10,19; DO— 

500 CIRCLE 194,88,2: OVER 1: PLOT 193,38: PLOT 194,88: 

PLOT 195,88: OVER 0 

510 PLOT 192,83: DRAW -24,-16: DRAW 0,32: DRAW 24,rl6 
520 PRINT AT 3,19; "AOnODaS" 

530 PRINT AT 8,3; "+CPABC 11 : PLOT ~39,108 : DR AW 8,0 _ 

540 PLOT 71,108: DRAW 37,0: DRAW 0,-12 "H ABC ~ 

• „ em modo graficc 

■550 PLOT 108,37: .DRAW 0,-12: DRAW -67,0 —- 

560 PLOT 91,103: DRAW 0,-12: 

570 PLOT 91,87: DRAW 0,-12 

580 PRINT AT 10,11; AT 12,3;"-" 

590 PRINT AT 11,10; V'; AT 11,14; "a" 

600 REM ** controle inversor ** 

610 PRINT AT 21,0;"ntecle o valor de A 1/0 .M=menu ": 

PAUSE 0 

620 IF INKEY$="0" THEN PRINT AT 10,13; "Jl"; AT 13,19; 

"0ODDOD1"; INK 5; AT 10,11; *‘g": SOUND .3,10 

630 IF INKEY$-"l" THEN PRINT AT 10,13; ."J" ; AT 13,19; 

"1DDOOO0"; INK 1; AT 10,11; "G"^ SOUND .2,25 

640 IF INKEY$="m" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 

650 GOTO 590 W _ 

w F GHJ 

660 REM Porta AND em modo grafico 

680 REM ** Aqui desenha-se o esquema ** 

690 GOSUB 2170 

700 PRINT AT 9,19; AT 11,19; ”_J’; AT 10,24;"_" 

710 PLOT 167,103: DRAW 0,-30: DRAW 10,0: DRAW 0,30,3: 


v GHJ 

em modo grafico 


DRAW -10,0 

720 PRINT AT 8,3; "+DOÜÍCHB";AT. 12,3; AT 10,13; 

AT 13,8; "Porta tipo AND" 

730 PLOT 39,108: DRAW 68,0: DRAW 0,-35: DRAW -68,0 
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740 PRINT AT 9,6; "aC!Ob"; AT 10,12; "s" 

750 PRINT AT 8,19; "A"; AT 13,19; "B"; AT 9,Z5; ”S" 

760 REM ** Controle AND *** 

770 PRINT AT 21,1; "tecle o valor de A 1/0 (M=menu)": 
PAUSE 0 

780 PRINT AT 10,27;"D"; AT 11,17; 

790 IF INKEY$="ra" OR INKEY$=”M" THEN GOSUB 2210: GOTO 150 
800 LET a$=INKEY$ 

810 IF a$ <>'T’ AND a$ <>"0" THEN GOTO 790 

820 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 

8,7;"I GOTO 840 , _ __ ^y~g - 

830 PRINT AT 8,7; " K" em modo gráfico 

840 SOUND .2,20 

850 PRINT AT 21 ,l;“otecle o valor de B 1/0 □□□□□□□□□": 
PAUSE 0 

860 LET b$=INKEY$ 

370 IF b$ <> ,! 1" AND b$<>"0" THEN GOTO 860 
380 LET b=VAL b$: PRINT AT 11,17;b: IF b*0 THEN PRINT AT 
8,10;"I GOTO 900 
390 PRINT AT 8,10; "K " 

900 LET s=a AND b: PRINT AT 10,27;s 
910 SOUND .2,15: SOUND .3,16. 

920 IF s~0 THEN PRINT INK 1; AT 10,13; " G": GOTO 940 
930 PRINT INK 5; AT 10,13; " G" 

940 PAUSE 3: GOTO 760 
950 REM ** Porta OR ** 

960 REM ** Aqui desenha-se o esquema ** 

930 GOSUB 2170 

990 PRINT AT 9,19; AT 11,19; AT 10,24;"__" 

1000 PLOT 167,103: DRAW 0,-30,-1.5: DRAW 10,0: DRAW 0,30, 


DRAW -10,0 

1010 PRINT AT 8,19; "A"; AT 13,19; "B"; AT 9,25; "S" 
1020 PRINT AT 7,9; "a"; AT 11,9; "b"; AT 11,12; "s" 
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1030 PRINT AT 8,3; "+OODOOnaB "; AT 10,10; AT 10,13; 

AT 12,3; 

1040 PLOT 39,108: DRAW 63,0: DRAW 0,-35: DRAW -68,0 
1050 PLOT 75,108: DRAW 0,-16: DRAW 16,0: DRAW 0,16 
1060 PRINT AT 18,8; "PORTA TIPO OR" 

1070 REM ** controle OR ** 

1080 PRINT AT 21,ls"D tecle o valor de A 1/0 M=menu": 
PAUSE 0 

1090 PRINT AT 10,27; "D"; AT 11,.17; 

1100 IF INKEY$=’’m" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 
1110 LET a$=INKEY$ 

1120 IF a$ <> "1" AND a$<>"0" THEN GOTO 1110 

1130 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 

8,10;" I": GOTO 1150 ** — TTg - 

1140 PRINT AT 8,10;" _ em modo grafico 

1150 SOUND .2,25 

1160 PRINT AT 21,1; "tecle o valor de B 1/0DGPOOGDOD": 

PAUSE 0 / / / j 

1170 LET b$=INKEY$ f / / / 

•1130 IF b$ <> "1" AND b$ <> "0" THEN'GOTO 1160 / 

1190 LET b=VAL b$f PRINT AT 11,17;b: IF b=0 THEN PRINT AT 
10,10;" I": GOTO 1215) j I 

1200 PRINT AT 10,10;" K" / / 


1210 SOUND .2,15 / / 

1220 LET s=a OR btPRINT AT 10,27;s / 

1230 IF s=0 THEN PRINT INK 1; AT 10,13; " G": GOTO 1250 

# 

1240 PRINT INK 5; AT 10,13; " G" 

1250 PAUSE 3: GOTO 1080 
1260 REM **•porta NAND ** 

1270 REM ** Aqui desenha-se o esquema ** 

1290 GOSUB 2170 

1300 PRINT AT 9,19; AT li,19; AT 10,24;"__" 

1310 CIRCLE 194,88,2: OVER 1: PLOT 193,88: PLOT 194,88: 
PLOT 195,38: OVER 0 
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1320 PLOT 167,103: DRAW 0,-30: DRAW 10,0: DRAW 0,30,3: 

DRAW -10,0 

1330 PRINT AT 8,19; "A"; AT 13,19; ”B"; AT 9,25; "S"’ 

1340 PLOT 39,108: DRAW 68,0: DRAW 0,-32: DRAW -68,0: 

RLOT 84,108: DRAW 0,-32 

1350 PRINT AT 3,3; "+"; AT 8,6; "ABC”; AT 8,12; 

AT 12,12; AT 12,3; AT 10,10; 

1360 PRINT AT 18,8; "PORTA TIPO NAND"; AT 7,13; "a”; 

AT 13,13; "b"; AT 10,9;"s" 

1370 PEM ** controle NAND *** 

1380 PRINT AT 21,1 ;l"ÍQtecle o valor de A 1/0 M=menu": 
PAUSE 0 

1390 PRINT ÁT 10,27;"Q"; AT 11,17;"6" 

1400 IF INKEY$= , W"0R INKEY$="M" THEN GOSUB 2210: GOTO 150 
1410 LET a$=INKEY$ 

1420 IF â$<>'T AND a$ <>"0" THEN GOTO 1410 
1430 LET a=VAL a$: PRINT AT 9,17;a: IF a=0 THEN PRINT AT 
8,12;" I ":G0T0 1450 
1440 PRINT AT 8,12; ” k" 

1450 SOUND .2,20: SOUND .3,21 

1460 PRINT AT 21,1; "tecle o valor de B l/0aEH3DÜQQün 
PAUSE 0 

1470 LET b$=INKEY$ 

1480 IF b$ < > "1" AND b$<>"0" THEN GOTO 1460 
1490 LET b=VAL b$: PRINT AT 11,17;b: IF b=0 THEN PRINT AT 
12,12;" I": GOTO 1510 
1500 PRINT AT 12,12; " K" 

1510 SOUND 2,10 

1520 LET s=NOT (a AND b): PRINT AT 10,27;s 

1530 IF s=0 THEN PRINT INK 1; AT 10,10; "G": GOTO 1550 

1540 PRINT INK 5; AT 10,10; 11 G" 

1550 PAUSE 3: GOTO 1330 
1560 REM ** Porta NOR ** 


I,G,KÀBC 
em' modo gráfico! 


1570 REM ** Aqui desehha-se o esquema 
1590 GOSUB 2170 

1600 PRINT AT 9,19 AT 11,19; AT 10,24; 

1610 PLOT 167,103: DRAW 0,-30,-1.5: DRAW 10,0: DRAW 0,30,3: 
DRAW -10,0 

1620 PRINT AT 8,19; "A";.AT 13,19; "B"; AT 9,25; "S” 

1630 CIRCLE 194,83,2: OVER 1: PLOT 193,88: -PLOT 194,88: 
PLOT 195,88: OVER 0 

1640 PRINT AT 11,8; "a"; AT 11,10; ”b"; AT 11,12; "s" 

1650 PLOT 39,108: DRAW 68,0: DRAW 0,-32: DRAW -68,0:, PLOT 
76,108: DRAW 0,-32: PLOT 92,108: DRAW 0,-32 
1660 PRINT AT 3,3; AT 8,6; "ABC"; AT 10,11; 


AT 10,13; AT 12,3; AT 10 ,9; " 

1670 PRINT AT 13,6; "PORTA TIPO NOR" 

1680 REM ** controle NOR ** 


ABC 
H, J 

emmodo^grafiço 


1690 PRINT AT 21,0;"Ütecle o valor de A 1/0 M=menu. ": 


PAUSE 0 . 

1700 PRINT AT 10,27; AT 11,17;"Z" 

1710 IF INKEY$="m" OR INKEY$="M" THEN GOSUB 2210: GOTO 150 
1720 LET a$=INKEY$ 

1730 IF a$ <> "l" AND a$<>"0" THEN GOTO 1720 


1740 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT AT 
10,9; " H": GOTO 1760 
1750 PRINT AT 10,9; "J" 

1760 SOUND .2,25: SOUND .3,24 

1770 PRINT AT 21,1; “tecle o valor de B 1/0ODDODDOOO": 
PAUSE 0 

1730 LET b$-INKEY$ 

1790 IF b$<>"l" AND b$<>"0" THEN GOTO 1780 

1300 LET b=VAL b$: PRINT AT 11,17; b: IF b=0 THEN PRINT 


AT 10,11;" H": GOTO 1820 . 
1810 PRINT AT 10,11; " J" 

1820 SOUND .2,15: SOUND .3,16 
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1830 LET s=NOT (a OR b): PRINT AT 10,27;s 
1840 1F s=0 THEN PRINT INK 1} AT 10,13; " G": GOTO 1680 
1850 PRINT INK 5; AT 10,13; "G 
1860 PAUSE 3: GOTO 1680 
1870 REM ** Porta OR exclusivo ** 

1890 REM ** Aqui desenha-se o esquema 
1900 GOSUB 2170 

1910 PRINT AT 9,19; "_"; AT 11,19;"_AT 10,24;"___" 

1920 PLOT 167,103: DRAW 0,-30.,-1.5: DRAW 10,0: DRÁW 0,30,3: 

DRAW -10,0: PLOT 163,103: DRAW 0,-30,-1.5 
1930 PRINT AT 8,19; "A"; AT 13,19; "B”; AT 9,25; "S" 

1940 PRINT AT 8,3; AT 12,10;"*"; AT 13,6; "a*ÚnsDDIb"; 

AT 14,3; 

1950 PLOT 39,108: DRAW 69,0: DRAW 0,-50: DRAW -69,0: PLOT 
60,108: DRAW 0,-50: PLOT 60,76: DRAW 48,0 
1960 PRINT AT 18,4; "Porta tipo OR exclusivo" 

1970 PRINT AT 9,7;"Dn0OO0ODD”;AT 10,7; "E □□.□□□ E"; AT 
11,7; "FOOGOD F " 

1930 REM ** controle exclusivo ** 

1990 PRINT AT 21,0;"Qtecle o valor de A 1/0 M=menu ": 

PAUSE 0 

2000 PRINT AT 10,27; "O"; AT 11,17; "D" 

2010 IF INKEY$="m" OR INK£Y$="M" THEN GOSUB 2210: GOTO 150 
2020 LET a$=INKEY$ 

2030 IF a$ <> "1" AND a$ <> "0” THEN GOTO 2020 
2040 LET a=VAL a$: PRINT AT 9,17; a: IF a=0 THEN PRINT 
AT 13,7; " HGOTO 2060 
2050 PRINT AT 13,7; "J " 

2060 SOUND .2,24: SOUND .3,23 

2070 PRINT AT 21,1; "tecle o valor de B 1/0□□□□□□□□□ ": 
PAUSE 0 

2030 LET b$=INKEY$ 

2090 IF b$ <>"1" AND b$ <>"0" THEN GOTO 2080 
2100 LET b=VAL b$: PRINT AT 11,17; b: IF b=0 THEN PRINT 
AT 13,13; "H ": GOTO 2120 


G,D,E,F,H,U. 
em modo grafico 


2110 

2120 

2130 

2140 

2150 

2160 

2170 

2130 

2190 

2200 

2210 

2220 

2230 

2240 


PRINT AT 13,13; ” J" 

SOUND .2,15: SOUND .3,16 
LET s=(a OR b) AND (NOT (a AND b)): PRINT AT 10,27;s 
IF s=0 THEN PRINT INK 1; AT 12,10; " G”: GOTO 2160 
PRINT INK 5; AT 12,10; " g" 

PAUSE 3: GOTO 1990 


J,G 

modo grafico 


REM *** Com este trecho se divide a tela para a 
apresentaçao *** 


PLOT 127,128: DRAW 0,-80 

PRINT AT 5,5; "esquema"; AT 5,19; "símbolo" ; 
RETURN \ 

REM ** Com esta parte se limpa a tela ** 

LET a$="DaoDpaopnGnnannaüoDonaaoaoDD 


.. 'c? 


FOR n=4 TO 18: PRINT AT n,2;a$: SOUND ,072, n*2: NEXT n 
PRINT AT 21,2; a$+"C": RETURN 


O.I.* 


1) Nao esquema que para obter os símbolos grã 
ficos indicados na listagem acima voce de¬ 
ve entrar em modo grafico com as seguintes 



2) Nao esquema evidentemente de gravar este 
super programa quando ele estiver total¬ 
mente correto ou pelo menos quando voce 






jã tiver obtido os resultados indicados nas 
Figuras 31 a,b,c. 



Figura 31 


Para finalizar este livro (não fique tris- 
,te pois jã existem ou vão aparecer outros livros so 
bre o TK 90X do mesmo autor.*.) aí vai a versão com 
putadorizada do popular jogo no qual se exige que 
você desloque peças em ura "grid" de 4x4 até que ob¬ 
tenha uma sequência correta ou então um quadro cer¬ 
to como mostrado na Figura 32.., 
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0 tempo que o seu TK 90X irã levar para qs 
te fim e de aproximadamente 1 minuto e por isto não 
fique aflito(a) durante este.intervalo de tempo... 

Quando o problema-ja esta criado o "grid" 
e exibido com as peças do quebra-cabeça colocadas 
em locais errados e a sua tarefa e colocã-las nos 
lugares certos no menor numero possível de movimen¬ 
tos . 

Para deslocar uma peça para umá caseia va" 
zia voce deve teclar a letra correspondente ao quà- 

M 

drado onde esta a peça em questão, isto ê„ as le- 
tras adjacentes na horizontal ou na vertical, 

Os quadrados no reticulado do quebra-cabe¬ 
ça sao representados pelas letras A ate P como esta 
indicado na Tabela 2. 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M • 

N 

0 

P 


Tabela 2 

0 problema ou seja o quebra-cabeça estã re 
solvido quando o quadro correto aparecer no "grid" 
(so faltava nao ser assim, nao e?). 


( O.I.J 1) O programa deve ser embutido no TK 90X uti- 
lizando o ÍCAPS LOCKl (so letras maiusculas). 


pi^^Pr>.2) Fique atento para entrar com o numero corre 
to de espaços em branco. 

im\ 

\ ' Bem, aí vai o ultimo programa (nao pare pa 
ra se lamentar, pois tem mais livros nossos sobre o 
assunto...). 
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2 POKE 23658,8 
5 DM P(16,9): DIM B(16) 

10 BORDER 1: INK 0: LET T=0 ^ 

15 PRINT AT 0,3; :FLASH l: PRINT "0 QUEBRA-CABEÇA 

DESLIZANTE";: FLASH 1 
20 PRINT: PRINT 

24 PRINT " A IDÉIA DESTE JOGO EVOCÊ RECRIAR'UM QUADRO EM 
UM RETICULADO 4x4 DESLOCANDO AS PEÇAS PARA A CASELA 
VAZIA." 

26 PRINT 

28 PRINT "VOCÊ PODE CONSEGUIR ISTO TECLANDO A LETRA DA PEÇA 
QUE QUER DESLOCAR PARA 0 QUADRADO VAZIO." 

30 PRINT: PRINT "ÀS PEÇAS NO QUADRICULADO SÃO REPRESENTADAS 
PELAS LETRAS:" 

35 PRINT 

40 FOR J=1 TO 16 

45 JF J < 5 THEN-PRINT AT 15,12+J; CHR$ (64+J): GOTO 65 
50 IF J < 9 THEN PRINT AT 16,8+J; CHR$ (64+J): GOTO 65 
55 IF J <13 THEN PRINT AT 17,4+J; CHR$ (64+J): GOTO 65 
60 PRINT AT 18,J; CHR$ (64+J): GOTO 65 
65 NEXT J 

70 PRINT AT 20,2; FLASH 1: PRINT "APERTE QUALQUER 

TECLA";: FLASH 0 
75 IF INKEY$ = "" THEN GOTO 75 
80 CLS 

85 PAPER 5: GOSUB 1000: GOSUB 1300: GOSUB 1100 
90 PRINT AT 4,1; "ESTA É" 

95 PRINT AT 5,3; "A" 

100 PRINT AT 6,1; "SOLUÇÃO" 

110 FOR P=1 TO 16 
112 LET B(P) = P 

115 LET R=P 

116 IF R=BRANC0 THEN LET LUGAR=P: GOTO 125 
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120 GOSUB 1200 
125 NEXT P 

130 FOR 2=1 TO 1499; NEXT Z 
135 PAPER 5: CLS 
140 GOSUB 1400 
145 GOSUB .1300: GOSUB 1100 
150 FOR P-l TO 16 
155 LET R=B(P) 

160 IF R=BRANCO THEN LET LUGAR=P:GOTO 170 
165 GOSUB 1200 
170 NEXT P 

175 INK 0: PAPER 5: PRINT AT 5,1;"NOMERO";; PRXNT AT 6,1; 

"DE PASSOS": PRINT AT 8,6;"0" 

180 LET B$=INKEY$: IF B$="" THEN GOTO 180 

185 IF CODE B$< 65 OR CODE B$ > 80 THEN GOTO 180 

190 GOSUB 1500: IF L=0 THEN GOTO 180 

195 LET F=CODE (B$)-64: GOSUB 1600 

200 LET P=LUGAR: LET R=B(CODE (B$)-64): GOSUB 1200 

205 LET S=LUGAR: LET LUGAR=CODE (B$)-64: LET Z=B(LUGAR): 

LET B(LUGAR)=B(S).: LET B(S)=Z 
210 LET T=T+1 
215 INK 0: PAPER 5 

220 IF T <10 THEN PRINT AT 8,6;T: GOTO 250 

225 IF T <100 THEN PRINT AT S,5;T: GOTO 250 

230 IF T <1000 THEN PRINT AT 8,4;T: GOTO 250 

235 STOP 

250 GOSUB 1700 

260 GOTO 180 

1000 FOR J=1 TO 16 

1005 PRINT " 

1010 FOR 1=1 TO 9 
1020 READ P(J,I) 

1025 IF P(J,I)=0 THEN LET BRANCO=J: GOTO 1040 


1030 NEXT I 
1040 NEXT J 

1050 FOR K=1 TO 6: PRINT "□DGOÜOQÜDOnoODQDOGOOODÜDDOOOODOQ 
PAUSE 6: NEXT K 
1100 INK 0 
1105 FOR J=0 TO 16 
1110 PRINT AT 4,10+J;CHR$ 143 
1115 PRINT AT 8,10+J;CHR$ 143 
1120 PRINT AT 12,10+J;CHR$ 143 
1125 PRINT AT 16,10+.J;CHR$ 143 
1130 PRINT AT 20,10+J;CHR$ 143 
1135 PRINT AT 4+J,10;CHR$ 143 
1140 PRINT AT 4+J,14;CHR$ 143 
1145 PRINT AT 4+J,18;CHR$ 143' 

1150 PRINT AT 4+J,22;CHR$ 143 
1155 PRINT AT 4+J,26;CHR$ 143 
1160 NEXT J 
1165 RETURN 

1200 LET X=5+4*INT ((P-l)/4) 

1205 LET Y=7+4*(P-4*INT((P-1)/4)) 

1210 INK 4: PAPER 6 
1215 PRINT AT X,Y;CHR$ P(R,1) 

1220 PRINT AT X,Y+1;CHR$ P(R,2) 

1225 PRINT AT X,Y+2;CHR$ P(R,3) 

1230 PRINT AT X+1,Y;CHR$ P(R,4) 

1235 PRINT AT X+1,Y+1;CHR$ P(R,5) 

1240 PRINT AT X+1,Y+2;CHR$ P(R,6) 

1245 PRINT AT X+2,Y;CHR$ P(R,7) 

1250 PRINT AT X+2,Y+1;CHR$ P(R,8) 

1255 PRINT AT X+2,Y+2;CHR$ P(R,9) 

1260 RETURN 

1300 INK 0: PRINT AT 1,3; FLASH 1: PRINT "0 QUEBRA- 

CABEÇA DESLIZANTE”;: FLASH 0 
1310 PRINT AT 2,7; "ESTE Ê 0 QUADRICULADO" 
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1320 FOR J=1 TO 16 

1325 IF J < 5 THEN PRINT AT 17,2+J;CHR$ (64+J): GOTO 1340 
1330 IF J<9 THEN PRINT AT 18,J-2;CHR$ (64+J): GOTO 1340 
1334 IF J< 13 THEN PRINT AT 19,J-6;CHR$ (64+J): GOTO 1340 
1337 PRINT AT 20,J-10;CHR$ (64+J): GOTO 1340 
1340 NEXT J 
1350 RETURN 

1400 INK 0:. PRINT AT 10,7; "CRIANDO O PROBLEMA" 

1405 FOR J=1 TO 56 
1410 LET B-l+INT (16*RND) 

1420 LET B$=CHR$ (B+64): GOSUB 1500 
1425 IF L=0 THEN GOTO 1410 

1430 IF J < 25 THEN PRINT AT 8,3+J;"*": GOTO 1450 
1435 IF J< 29 THEN PRINT AT J-16,27;"*": GOTO 1450 
1440 IF J< 52 THEN PRINT AT 12,56-J;"*": GOTO 1450 
1445 PRINT AT 64-J,4;"*" 

1450 LET S=LUGAR: LET LUGAR=B: LET Z=B(LUGAR): 

LET B(LUGAR)»B(S): LET B(S)=Z 
1455 NEXT J 
1460 CLS: RETURN 

1500 LET L=0 

1501 IF CODE (B$)-64=LUGAR THEN RETURN 
1505 IF LUGAR=1 AND (B$="B" ORB$="E") THEN LET L= 1: RETURN 
1510 IF LUGAR-2 AND (B$=”A" OR B$="C" OR B$="F") 

THEN LET L-1: RETURN 

1515 IF LUGAR=3 AND (B$="B" OR B$="D" OR B$=V) THEN LET 
L-1: RETURN 

1520 IF LUGAR-4 AND (B$= M C" OR B$="H") THEN LET L-1: RETURN 
1525 IF LUGAR=5 AND (B$="A" OR B$="F" OR B$="l") THEN LET 
L-1: RETURN 

1530 IF LUGAR-6 AND (B$="B" OR B$="E" OR B$="G" OR B$="J") 
THEN LET L-1: RETURN 

1535 IF LUGAR-7 AND (B$="C" OR B$="F” OR B$="H" OR 
B$-"K") THEN LET L-1: RETURN 


1540 IF LUGAR=8 AND (B$="D" OR B$-"G” OR B$="L") THEN LET 
L-1: RETURN' 

1545 IF LUGAR-9 .AND (B$="E" OR B$="j" OR B$="M") THEN LET 
L-1: RETURN 

1550 IF LUGAR=10 AND (B$="F" OR B$="l" OR B$="K" OR 
B$="N") THEN LET L-1: RETURN 
1555 IF LUGAR=11 AND (B$="G" OR B$-"j" OR B$="L" OR 
B$="0") THEN LET L=l: RETURN 

1560 IF LUGAR=12 AND (B$="H" OR B$="K" OR B$="P") THEN LET 
L-1: RETURN 

1565 IF LUGAR=13 AND (B$="l" OR B$="N") THEN LET L-1: 
RETURN 

1570 IF LUGAR=14 AND (B$="J" OR B$=”M" OR B$="0") THEN LET 
L-1: RETURN 

1575 IF LUGAR=15 AND (B$="K" OR B$="N" OR B$="P") THEN LET 
L-1: RETURN 

1580 IF LUGAR=l6 AND (B$="L" OR B$="0") THEN LET L=1: 

RETURN 
1590 RETURN 

1600 LET X=5+4*INT ((P-l)/4) 

1610 LET Y=7+4*(P-4*INT ((P-l)/4)) 

1620 PAPER 5 

1625 PRINT AT X,Y;"DPD " 

1630 PRINT AT X+l,Y;"DOD " 

1635 PRINT AT X+2,Y;"aDP" 

1640 PAPER 5 
1650 RETURN 
1700 FOR J=1 TO 16 
1710 IF B(J) <>J THEN RETURN 
1720 NEXT J 

1730 PAPER 6: INK 2: PRINT AT 12,2; FLASH 1: PRINT 
"RESOLVIDO"; FLASH 0 
1740 STOP 
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2000 DATA 0 

2005 DATA 128,128,123,128,135,128,128,133,128 
2010 DATA 128,128,128,128,128,137,128,128,143 
2015 DATA 137,128,128,128,128,128,128,128,128 
2020 DATA 128,128,141,128,141,143,128,143,143 
2025 DATA 143,143,143,143,143,143,128,128,143 
2030 DATA 143,143,143,143,143,143,143,128,128 
2035 DATA 142,128., 128,143,14,2,128,143,143,128 
2040 DATA 128,143,143,128,143,143,128,143,128 
2045 DATA 128,128,143,143,143,143,128,143,128 
2050 DATA 143,128,128,143,143,143,128,143,128 
2055 DATA 143,143,128,143,143,128,128,143,128 
2060 DATA 128,143,128,128,143,143,128,128,128 
2065 DATA 128,143,128,143,143,140,128,128,128 
2070 DATA 128,143,128,140,143,143,128,128,123 
2075 DATA 128,143,128,143,143,128,128,128,128 
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